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Ei PRODUCT CODE: MAINDEC-11-DZVTC-D-D 
33 PRODUCT NAME: YTSOA, 8, H, S2 ACCEPTANCE TEST 
= DATE CREATED: MAY 21, 1975 
27 DATE REVISED: JANUARY 1977 
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8 MAINTAINER: DIAGNOSTIC GROUP 
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38 COPYRIGHT (C) 1974,1977 DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 
40 
41 THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE 
aE ON A SINGLE COMPUTER SYSTEM AN 4 CAN BE COPIED (WITH INCLUSION 
42 OF DEC’S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT 
“4 AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. 

He THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
47 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
ug EQUIPMENT CORPORATION. 

so DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 


E1 ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
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ABSTRACT 


THIS PROGRAM IS AN ACCEPTANCE TEST OF THE VTSO/Se VIDEO TERMINAL. 
THE PROGRAM CONSISTS OF FOUR PARTS, ALL OF WHICH bare 
OPERATOR INSPECTION OR INTERACTION. THE PROGRAM IS CAP 


ABLE 
OF HANDLING MULTIPLE UNITS IN A SEQUENTIAL DL~-11 Aan att Sg (REF 8.2). 


JE H EHH 
ONLY ONE VTSO/S2 IS TESTED AT ONE TIME. 
cry on gg oa ee 
THE PROGRAM WILL DEFAULT TO THE CONSOLE jTY (REF 5.0 AND 8.2). 
ALL_CHARACTERS AND COMMANDS ARE TESTED. IN THE KEYBOARD CHARACTER 
TEST THE FOLLOWING “FUNCTION” KEYS ARE NOT TESTED: 
BREAK, REPEAT, AUTO-PRINT, AND SCROLL. 


PART 1 CONSISTS OF A SERIES OF TEST PATTERNS DISPLAYED ON THE 
VTSO/S2 SCREEN AND COPIER (REF 9. FOR DESCRIPTION). THE OPERATOR 
MUST VISUALLY INSPECT EACH TEST PATTERN FOR ERROR DETECTION. 


PART 2 IS A KEYBOARD CHARACTER TEST. THIS TEST IS TO DETERMINE 
THAT THE TERMINAL IS GENERATING THE EXPECTED ASCII CODES. 

IN THIS TEST AN OPERATOR WILL BE REQUIRED TO FOLLOW THE 

ere oe piety ED ON THE VTSO/Se SCREEN AND EXECUTE THEM. 


D OPTION 
PARITY BIT TESTING MUST BE SELECTED BY THE OPERATOR. THE OPERATOR 
SELECTS THE TYPE OF PARITY TO BE TESTED BY SW 00-01 


PART 3_IS A KEYBOARD OCTAL VALUE LOOP. WHEN A KEY IS DEPRESSED, 
THE OCTAL VALUE WILL BE DISPLAYED ON THE SCREEN. 
IF THE KEY DEPRESSED WAS PRINTABLE, IT WILL ALSO BE DISPLAYED 


by THE SCREEN. IF A “DEFINED” CHARACTER, A rue LETTER EQUAL LVENT 


(IE. BL=BELL, ES=ESCAPE ETC.) WILL BE BtSPLAYE 
PART 4 IS A KEYBOARD ECHO LOOP. WHEN A KEY IS DEPRESSED THE 
CHARACTER IS ECHOED TO THE SCREEN. NO Lhe OF THE CHARACTER 
1S PERFORMED. THIS ALLOWS THE OPERATOR A ‘LOCAL’ MODE OF OPERATION 
BETWEEN THE YTSO/S2 AND THE HOST COMPUTER. 


REQUIREMENTS 


EQUIPTMENT 

PDP-11 FANILY COMPUTER WITH 8K WORDS OF MEMORY 

VTS S2 VIDEO TERMINAL CONNECTED VIA A DL-11A”B TYPE 
INT TERFACE 

STORAGE 

THIS PROGRAM USES &K OF MEMORY. 


EO] 
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105 

106 

107 

108 

163 3. LOADING PROCEDURE 

tt cise hi aoa 

ile PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWED. 

114 4 STARTING PROCEDURE 

He re es Sige 

117 ’ 4.1 CONTROL SWITCH SETTINGS 

119 STANDARD PDP-11 FORMAT 

121 SW 1S =1 HALT ON ERROR 

122 SW 14 = 1 LOOP ON TEST 

123 SW 13 = 1 LNTBTT ERROR TYPEOUTS 

24 SW 12 = 1 INHIBIT PROGRAM SUB-TEST DELAY 
ies SW ll = 1 INHIBIT COPIER TESTING 

126 SW 10 = 1 ENABLE Re COPIER PAPER” MODE 
127 SW 08 = 1 LOOP ON TEST IN SWR <4:0> 

128 Sw 07 = 1 KEYBOARD CONTROL OF THE TEST 

138 (SW 8 AND SW 7 = 1 IS AN ERROR> 
131 KEYBOARD CHARACTER TEST ONLY 

133 wo2 = 1 ENABLE PARITY SIT TEST 
134 SWOO-O1= O00 EVEN PARITY CHECK 

135 SwOO-01= 01 ODD PARITY CHECK 

136 SwOO-01= 10 ALWAYS AO 

137 SwOO-O1= 11 ALWAYS A 1 

139 SPECIAL NOTE: IF THE COMPUTER UTILIZED IS A LSI 11_0R A COMPUTER 

140 WITHOUT A SWITCH REGISTER, THE PROGRAM WILL UTILIZE LOCATIONS 

141 174 AND 176 AS A "DISPLAY* REGISTER AND A “SWITCH” REGISTER 

142 RE-PECTIVELY. THE OPERATOR WILL BE RESPONDSIBLE FOR THE 

143 LOADING OF THE “SWITCH” REGISTER LOCATION PRIOR TO STARTING 

144 OR RESTARTING THE PROGRAM. 

146 

137 4.2 STARTING ADDRESS OR ADDRESSES 

149 200 IS THE STARTING ADDRESS OF THE ACCEPTANCE TEST 
150 204 IS THE RESTART ADDRESS OF THE ACCEPTANCE TEST 

15 210 1S THE STARTING ADDRESS OF THE KEYBOARD CHARACTER TEST 
162 214 1S THE STARTING ADDRESS OF THE KEYBOARD OCTAL VALUE LOOP 
i53 220 IS THE STARTING ADDRESS OF THE KEYBOARD ECHO LOOP 
164 - 1S THE SPECIAL STARTING ADDRESS FOR VT-SO PRODUCTION 


FOL 
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1S 
157 ? 
158 
1s9 
144 $. OPERATING PROCEDURE 
lige 
ie REGISTER HHEN REQUIRED BY THE PROGREM OR AN ERROR WILL OCCUR. 
165 Riss af Ries fhe HEE? WILL BUN oR ITS NORMAL MANNE 
14, WITHOUT *OPERATOR INTERVENTION OR SWITCH CHANGES. 
168 THIS PROGRAM ALLOWS THE OPERATOR TWO MODES OF TEST PATTERN 
169 SELECTION. THESE MODES ARE SELECTED BY THE sare 4 SW O07 AT ‘THE 
170 BEGINNING OF THE PROGRAM. WHEN SW 07 IS A ZERO E PROGRAM 
171 UNDER SWITCH REGISTER CONTROL FOR TEST PATTERN SELECTION. IF SWO7 
172 IS EQUAL TO A ONE, THE PROGRAM IS UNDER KEYBOARD CONTROL OF ‘THE TEST 
173 PATTERN SELECTION. IN THIS MODE THE ne With, BE REQUIRED 70 
174 TYPE_IN ON THE CONSOLE TTY THE FIRST AND LAST OCTAL BASE 
is ADDRESS OF THE DL-11’S TO WHICH VT-SO’S ARE CONNECTED. 
177 IN THE KEYBOARD SELECT MODE, TWO CHARACTERS ARE USED TO SELECT THE 
178 “STARTING WITH" OR "LOOPING ON" A PATICULAR TEST PATTERN BY "/" OR 


"\" RESPECTFULY. 


179 

180 

181 THE “7” KEY IS USED TO SUSPEND THE CURRENT TEST AND ASK THE OPERATOR A 
182 in TEST PATTERN HE/SHE WISHES TO START. THE OPERA ie NOW vases 
183 T R E gk WITH 
184 
185 


R FER TO_THE 
LETTER OF EACH RORTTERN. 


186 

i87 THE "\" KEY IS USED TO SUSPEND THE CURRENT TEST AND ASK THE OPERATOR 
188 WHICH TEST PATTERN HE/SHE WISHES TO LOOP ON. THE OPERATOR NOW 

189 WEPRESSES THE LETTER OF THE TEST 0 LOOP ON: 

191 IF DURING THE EXECUTION OF A TEST PATTERN, A KEY IS OFRRESSED 

192 AND SH_O7 EQUALS a ZERC, AN ERROR WILL BE REPORTED TO THE 

193 CONSOLE TTY. IF SW 07 F QUAL SA ONE, AND 

194 THE CHARACTER RECEIVED WAS NOT A “/* OR “\", AN ERROR WILL SE REPORTED. 


195 THE CODES “X-OFF” AND “X-ON” ARE THE ONLY EXCEPTIONS. 


GO1 
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196 ‘ 
197 
198 
199 
205 6. ERRORS 
eee tae ea 
203 THIS PROGRAM USES a DIAGNOSTIC »SYSMAC PACKAGE FOR 
204 RROR REPORTING AND TYPEOUT. REFER TO THE “ERROR POINTER TABLE” 
205 EGR TYPE AND DESCRIPTION OF ERRORS, . 
0 THE ERROR INFORRATION CONSISTS OF THE FOLLOWING: 
208 ERRPC - LOCATION AT WHICH AN ERROR WAS DETECTED 
208 TNOW - CURRENT DL=11 BUS ADDRESS OF VTSO/Se UNDER TEST 


TSTNUN- TEST PATTERN De cea OF FAILING 
EXPT - EXPECTED INPUT CHARACTER 
RCVD - RECEIVED INPUT CHARACTER 


RESTRICTIONS 


A. THE OPERATOR SHOULD SET SW 15 AND 12 IF THE YTSO/Se UNDER TEST 
IS THE CONSOLE TTY. 


B. ONLY ONE VTSO/S2 CAN BE TESTED AT ONE TIME. 
C. THE fg TIME AFTER LOADING THE PROGRAM, THE TERMINAL IDENTIFIER 


a 


rurvorururururofurorururutu 
TUTUTU &- bb 0 b 0 be 
MH OWONIOU CWO 


23 MUST BE 

Ba 8. MISCELLANEOUS 

Be eth 2 di ae le a ar LD pees 

337 

208 8.1 EXECUTION TINE 

350 EXECUTION TIME WILL VARY WITH THE "BAUD" RATE, AND. IF A. COPTER. 1S CONNEG 
231 THE PROGRAM WILL TYPE "END PASS’ ON THE CONSOLE WHEN @ PASS HAS BEEN COM 
B32 THE KEYBOARD. LOOP AND CHARACTER TEST WILL NOT EXIT UNTIL 

233 ’ THE PROGRAM IS RESTARTED. 

e 

225 , 8.2 DEVICE ADDRESS PROGRAM LOCATIONS (AT APPROX. 1240) 

227 THE LOCATION “FIRST™ CONTAINS THE FIRST DL11 ADDRESS IF SEVERAL vT-50’S 
535 PEENG ORM EASTS EONTAING THE LAST DLTL-ADORESE TF SEVERAL VT-SO’S 
240 ARE BEING TESTED. LOCATION VTNOW CONTAINS THE CURRENT OL1I BASE AGDRESS. 
Bye ENOTE: IF THESE LOCATIONS ARE CHANGED, THE OPERATOR MUST. START 

B45 THE TEST AGAIN AT LOC. 200. THE PROGRAM WILL USE THE BASE 

ed AOERESS TO UPDATE THE ACTUAL PROGRAN VALUES. 

e4e 8.3 COPIER SAVE PAPER SWITCH 

246 TF SW10 = 1 AND A COPIER IS INSTALLED, THE COPIER TESTS 

245 uit BE EXECUTED ON THE FIRST PASS AND’ THEN BYPASSED FOR 

Ec? NEXT TEN PASSES. THIS REDUCES PAPER USAGE WHEN THE 


22) PROGRAM IS RUN FOR AN EXTENDED PERIOD. (LOC. PTCT IS & OF PASSES) 


01 
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252 
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=54 
s2e 3. PROGRAM DESCRIPTION <SCREEN> 
EP 
e328 3.1 TERMINAL IDENTIFICATION TEST 
260 THIS TEST WILL INTERROGATE THE VTSO/Se UNDER TEST AS TO IT’S TYPE. 
261 THE RESPONSE RECIEVED I USED TO DETERMINE THE MODES TO BE TESTED 
262 (IE. COPIER, 12/24 LINE C.A <DIRECT CURSOR ADDRESSING? ETC.) 
263 IF AN UNDEF Etneb OR i FRCORREGT RESPONSE IS RECIEVED, THE PR OGRAM 
eed ASSUMES VTSOA MODEL (IE. l2 LINES, NO COPIER, NO D.c.A., NO EXTRA KEYPAD 
268 9.2 8B FULL SCREEN OF THE LETTER E 
ES/ 
iss) THIS TEST WILL FILL THE SCREEN WITH THE LETTER E. 
269 THIS TEST WILL LOAD THE SCREEN RAM WITH A SINGLE 
g70 CHARACTER IN ALL LOCATIONS 
ee 9.3 C DATA PATH AND RAM NOISE TEST 
is 
274 THIS TEST WILL PRODUCE TWO FULL SCREENS OF A WORST CASE 
275 NOISE PATTERN FOR THE SCREEN RAM AND THE DATA PATH. 
276 ALTERNATING LINES OF THE FOLLOWING 
oe PATTERNS SHOULD BE DISPLAYED. 
¢ 
279 *UXU#U*U8U CODES S2 AND 125 
280 2?a?a’a?a? CODES 77 AND 190 
281 *U*U*U%U*U 
oe a?a?d?a?a? 
eae 7 9.4.0 SIMPLE CHARACTER SET 
eg ONE FULL LINE OF EACH CHARACTER 
rds] (CODES 40 THRU 137) OF THE CHARACTER 
288 SET. THIS WILL AI.SO TEST THAT ALL WORDS 
289 IN THE SCREEN RAM CAN BE LOADED. 
ez THIS WILL ALSO EXERCISE THE SCROLLING FUNCTION. 
292 IE: AAAAAAAARRARAAAARARAARARAARARAARAAAARAAAAA 
293 BBBBBSBEBBBBBBSBBBBBSEBBBBBEBEBBEBBBEBBE 
294 ececceeececceceeeecccecececcecccccccecce 
cae DDDDDDDDDDDDDDDDLWODDDDDDDDDDDDDDNDOOCDD 
tl : 9.5 £ INCREMENTING AND SLIDING CHARACTER SET 
eos ONE FULL LINE OF AN INCREMENTING 
200 CHARACTER SET ACROSS THE FULL SCREEN 
301 STARTING WITH THE CODE 40 (SPACE) 
Oe NEXT LINE SHOULD BEGIN WITH THE 
303 "1" CHARACTER (CODE ETC. CONTINUE 
304 . THE PATTERN BY INCRENENTING 
295 FIRST COLUMN CHARACTER UNTIL THE 
206 FULL CHARACTER SET HAS BEEN EXHAUSTED. 
Sul 


O1 
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308 ; THIS PATTERN WILL VERIFY THAT THE FULL 
299 CHARACTER SET CAN BE DISPLAYED IN EACH 
cbs! SCREEN WORD. 
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9.6 F CURSOR MOTION 


IN THIS TEST_THE BASIC CURSOR Poulos ARE 
TESTED. THE FOLLOWING TEST P 
IS GENERATED TO TEST THE CURSOR FUNCTIONS 


BEFORE: 


wm 


UPON COMPLETION OF THE 
oe alae CURSOR WILL BE 


TO TEST “CURSOR UP”: 

TO TEST “CURSOR LEFT”: 
TO TEST “CURSOR DOWN”: 
TO TEST “CURSOR RIGHT”: 


TO TEST “CURSOR HOME”: 
AFTER: 


HHH Heese eee 
x 


SETUP THE 
TO THE RIGHT 


GENERATE CURSOR UP 6/12 TIMES AND 
DISPLAY A "*X™ 
GENERATE CURSOR LEFT <BACKSPACE) 
FOURTY FOUR TIMES AND DISPLAY A “X" 
GENERATE CURSOR DOWN &712 TIMES AND 
DISPLA 
GENERATE CURSOR RIGHT FOURTY TWO TIMES AND 


DISPLAY 
GENERATE CURSOR HOME AND DISPLAY A “Xx” 


x 
HHH ee eee ee 
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3.7 G TAB, BACKSPACE AND BELL TEST 


aaah © 
Mftiwrue TF 


THIS PATTERN WILL TEST THAT THE *TAB* FUNCTIONS CORRECTLY FROM EACH 
COLON POSITION, GENERATE A A REFERENCE, CYNE USING SPACES 
RING THE a Ts ht ae One. CHARACTER IN COLUMN ONE AND ce A *TAB 


A IN THE FIRST TA SEREEN. 
_ON THE NEXT LINES USE INCREASING NUMBERS OF CHARACTERS BEFORE THE ‘TAR’ 
— BEGINNING OF EACH LI 


THE B A NE. THE SECOND SECTION TES 
THE BACKSPACE CODE. A FULL LINE OF THE CHARA CTER "X" WILL BE DISPLAYED 
STARTING AT THE RIGHT EDGE AND EXTENDING TO THE LEFT. 


+] I I I I I I I I 

+] I I 3 

+IA IA IA IA TA IA IA IA Ma) 
+IAR IAA IAA HA AA IAA AA 168 108 
+IAAA TARA TARA AAA AAA IAAA RAA AAA aA 
He pene I TARA AAA ees 


+IAAAAA IAAAAA IAAAAA IAAAAR IARAAA IARAAA IAAAAA IAAAAA IARAAA 
+IARAAAR IAARRAR IAAAAAA IAARARA IARAAAA TAARARAR IARAAAR IARRAAR IARARAA 
XXXXXXXAXAXAXXXAAXXXXAXXKARXXAXAXAXXXAXXXAXXAXXARRAARAAXAARAAARKAARAKARKAA AAA 


ERASE FROM CURSOR TO END OF LINE: 


GENERATE Re FULL be te OF THE CHARACTER "E” 
EXECUTE A “CURSOR HOME” 

EXECUTE “ERASE FROM CURSOR TO END OF LINE” 
BxECUTS “ee OR RIGHT” 6/3 TIMES 

EXECUTE ™ 

REPEAT H. THRU H.S 12/24 TIMES 

THE END DISPLAY OS APPEAR TO BE A 

STAIR STEP PATTERN 


EEEEE 
EEEEEEEEEEEE 
EEEEEEEEEEEEEEEEEE 


EEEEEEEEEEEEEEE 
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEPEPEEEEEEEPESEPERESEPEEErESErrEEEEEEE 
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9.11 I 


g.le J 


9.13 K 


9.14 L 


ERASE FROM CURSOR TO END OF THE SCREEN: 


atk RATE. A FULL. zt REEN OF OF ent CHARACTER “E” 
XECUTE FOURTY 
CUTE "ERASE SCREEN” ahp tou RSOR UP” 
REPEAT THIS 5.12 OR 24 ay ES UPON C MeL I ON THE PATTERN W WILL 
@ LINE OF FOURTY CHARACTERS AT LEFT OF THE SCREEN. 


VIDES COUPLING: 


THIS PATTERN WIL “He V1 FOR THE cH TicaL ck OF chPPE° 
COUPLING Ait 2 VER rice Vv 

IF COUPLING S OF THE CHARACTERS 
WILL BE UNEVENLY "epaceD OR OTs WILL SPARKLE. 


T 999999909999999090990I9I09999990I0908 
: EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 


arene | 
Ege eee REESE | 


T 

T ddd 

+ 

: oo EEEEEEEEEEEEEEEEEEEEEEEEE 7 
T EEE 

T ddd 

TE 


i 
Haan 


PEPEPPEEPePeEeEEEEEEeeeEeeeeEEEEEeE t 


DIRECT CURSOR ADDRESSING (D.C.A.) 


THIS TEST IS ONLY EXECUTED ON A VTSOH. WHEN EXECUTED ON A VTSCH 

ite ESERy “en Ti RUN TWO TIMES. THE FIRST TIME WILL BE WITH 
"ES E as WITH AN ™ 16". 

ir AN HIS Mes WILL NOT BE EXECUTED. 

THIS res1 pun "RANDOMLY FILL THE SCREEN. THE END RESULT 

WILL B He Pah STATEMENT ON ALL VERTICAL LINES. 

EACH 0 Th LINES SHOULD APPEAR THE SAME. 


HOLD SCREEN TEST 


NOT EX EYTED iF VT O/96, PRODUCTION STARTING ADDRESS. 

THIS TES TERMIN HAT THE “XON-XOFF" FEATURE IS FUNCTIONING. 
A FULL SCREEN SCROLL IS EXECUTED. AND A SUB-TEST TITLE 

alee BE DI LaveD a HOLD SCREEN MODE IS ENABLED AND 


i PROGRAM tie 7 ui: a a THE SCREEN AGAIN ae SEND A MESSAGE. 


INH ATeUTED FROM sc scro.LiNe, ANY Y RODEN ONAL CHARA TERS geCeIvED 
WILL BE P BUFFER. 


Bis ive BECO Ath tE BRbHOuD SHEEN PI, 


THE MESSAGE “TESTING SILO REG" SHOULD eon UNDER THE "Ste TEST TITLE 
FOLLOWED BY “SILO TEST DONE” ON THE NEXT L 


wR: 
if 
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479 
480 
481 COPIER TEST PATTERNS 
4 TEST R PIER AR SAME PATTERN 
483 ate ore oF THe NS USED TQ, TEST. THE COPTER ARE THE SANE PATTERNS 
485 BEEN 

5 
487 9.15 M GRAPHICS MODE/REVERSE LINE FEED TEST 
489 THIS TEST IS EXECUTED ONLY IF UNIT 1S VISE. 
“a RT ORNSTERS(LINE LENG wis NE CREMENT TED BY ONE ONE Tee AFTER 
ued ’ fr rik 3 8 be} Ne ebSNBE oEhERATED, NE apt rone Ge OF a 
433 WIL FORH A COMPL L ETE SERI GRAPHIC CHARACTERS WHICH 
495 TF ae ft FP PED oe nay, OPERATIONAL A SINGLE 
46 GRAPHICS CHARACTERS WILL BE GENERATED 
437 tN MEINE O ONLY. 
493 9.16 N COPIER - AUTO COPY MODE 
eal fre TEST 1s USED TQ DETERMINE IF THE: AUTO COPY Hones FUNCTIONING CORR 
503 I THE BUTO-COev Hobe E 1s ENABLED. THE. COBIER TER SHOULD THEN Be 
E05 1S THE COPTER. SHOU ub eb PY “Oh ’ LINE AND HEA NE op Efe Fut procran 
506 : DELAY TIM S COMPLETED ANOTHER LINE 
507 OF 'E’S ube Woe NOTePLAYED RAND. te COPIER SHOULD START AGAIN. 
508 UPON COMPLETION OF THE 12 OR 24 LINES, DISABLE AUTI-COPY MODE 
5093 IS SENT TO THE VTSO. IF THE AUTO COPY MODE IS NOT DISABLED 
510 THE NEXT SUB-TEST WOULD PERFORM IN A SIMILAR MANNER. : 
el 9.17 0 COPIER - FULL SCREEN OF THE LETTER E 
514 SAME AS SCREEN PATTERN 
bie 9.20 P ‘COPIER - DATA PATH TEST PATTERN 
518 SAME AS SCREEN PATTERN r 
20 9.21 @ COPIER - SINGLE CHARACTER PER LINE 

bee SAME AS SCREEN PATTERN 
E24 9.22 R COPIER - ROTATING CHARACTER TEST 
EDE ‘ SAME AS SCREEN PATTERN 
255 | 
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ear 9.23 S COPIER - PERIMETER TEST 
S3e THIS TEST COPIES THE PERIMETER OF THE SCREEN AND THE 
4 RESULTING PICTURE SHOULD RESEMBLE BELOW 
536 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
$36 EEEEEEEEEEEREEEEEPEEEEEEEPEPEEEEPEEEPPEPEEEEEEEEEEE 
537 EEE EEE 
538 EEE EEE 
§39 EEE EEE 
S40 EEE FEE 
541 EEE EEE 
S42 EEE EEE 
S43 EEE EEE 
S44 EEE EEE 
S45 EEEEEEEEEEEEEEEEEEEEEEEEEEEECEEEEEEEEEEEEEEEEEEEEEE 
a ir EEEEEEESEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEPEEEEEEEEEEEE 
cus e 9.24 T COPIER - DISCLAIMER STATEMENT 
550 IN THIS TEST THE DISCLAMER STATEMENT FROM THE COVER PAGE 
551 OF THIS DOCUMENT IS DISPLAYED ON THE SCREEN ANU THEN COPIED. 
552 THE COPIED VERSION SHOULD BE COMPARED TO THE FRONT COVER TO 
2 CHECK FOR ERRORS. 
a4 9.25 U PRINTER CONTROLLER MODE TEST 
S57 A *ROLLING’ PATTERN OF INCREMENTING CHARACTERS IS 
558 ISSUED TO THE UNIT AFTER PRINTER CONTROLLER 
S59 MODE HAS BEEN ENTERED. 92 LINES(OF 132 CHAR. EACH) 
ay SHOULD BE PRINTED WITH NO DATA APPERING ON SCREEN. 
ors 9.26 ¥ PRINT SCREEN TEST © 
S64 THE SCREEN IS FILLED WITH 24 LINES OF 'E*S. THE 
S65 PRINT SCREEN ESCAPE SEQUENCE IS THE ISSUED AND ALL 
oes 24 LINES SHOULD BE PRINTED. 
ere 9.27 W AUTO PRINT TEST 
570 OPERATION IS SAME AS AUTO COPY TEST EXCEPT THAT 
$71 THE PRINTER,RATHER THAN THE COPIER IS THE DESTINATION. 


B0e 


02 
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9.30 X KEYBOARD CHARACTER TEST 


THIS TEST IS DESIGNED TO VERIFY THAT CORRECT CHARACTER CODES 
ow PARITY BIT ARE EEE RS WHEN A oP DEPRESSED. 


ME, W 
: 13 OPERATOR WILL BE REQUIRED to SKIP THOSE KEYS THAT 
NOT SEEN TED IF THE UNIT IS A_VTSO. THE PROGRAM WILL 
iN ORM THE OPERATOR WHICH ROW TO TEST. 


IN TESTING THE PARITY BIT, SW O AND 1 ARE USED TO 
INFORM THE PROGRAM OF THE EXPECTED PARITY. AN INCORRECT 
SWITCH SETTING WILL RESULT IN AN ERROR. 


9.31 Y KEYBOARD OCTAL VALUE LOOP 


TO BsGRIN e'THE OGIAL VALUE OF A CHARACTER. "OMEN A KEY Is 


OCTAL VAL 
ie fhe SHARACTER WAS A PRI nab tg BE OER TE RS OS WILL abe DISPLAYED. 
HOSE CODES DEFINED AS “CONTROL” WILL BE DISPLAYED AS A 
TWO LETTER MNEMONIC (IE. DEADELETE. BL=BELL, CL=CURSOR LEFT ETC.) 


9.32 Z KEYBOARD ECHO LOOP 
WHEN A KEY IS DEPRESSED, THE CHARACTER WILL BE Pi AreD. 


ERTAL 
LIN NE PROBLEM. WHEN “THE v TSO/Se IS IN LOCAL MODE (NO UART/SERIAL LINE? 
THE nee ee iD BE ate 2 SORE Thy IF NOT, THE PROBLEM 
IS IN THE VTSO UNIT. IF CHANGED TO REMOTE 
MODE AND THE CHARACTERS ARE IN ERROR, THERE IS A UART/ 
SERIAL LINE PROBLEM. 
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612 TITLE NAINDEC- 11-D2vTC-D 

613 -*COPYRIGHT (C) 1975 

614 : ¥OIGITAL EQUIPMENT CORP. 

bis ; #MAYNARD, mass. 01754 

B17 | SPROGRAM BY MIKE DENSMORE 

619 t STHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 

bet : #PACKAGE (MAINDEC-11-DZ@AC-C3), JAN 19, 1977. 

bee ‘EBTTL BASIC DEFINITIONS 

be aha INITIAL ADDRESS OF THE STACK POINTER ##* i100 #%# 

S26 “EQUIV EMT, ERROR BASIC DEFINITION OF ERROR CALL 

be? “EQUIV IOT’SCOPE tt Basic DEFINITION OF SCOPE CALL 

629 -¥MISCELLANEOUS DEFINITIONS 

£30 090011 AT= Il :;CODE FOR HORIZONTAL TAB 

F3k 90001 LF= 12 : CODE FOR LINE FEED 

§ 00001 CR= 15 ::CODE FOR EARRIAGE 

£34 799592 B= me FeODe_FOR CARR AGE, RETURN Soni one 

635 “EQUIV PS, PSH 2 

636 177774 STKLMT= 177774 sr BTRCK LIMIT REGISTER 

ne i cee UR RISER Peete 
af +4 

629 177570 DDISP= 177570 + POROWARE BISPLAY REO CTER 

bul aonae 3GENERAL PURPOSE REGISTER DEFINITIONS 

= Bae : H eee Cus 

64S 000003 R3= “3 : : GENERAL REGISTER 

B46 gco004 Ru= “4 !IGENERAL REGISTER 

647 900005 RS= “5 :tGENERAL REGISTER 

bug 909006 Ro= “6 GENERAL REGISTER 

e50 eee ia 4 ER TER 

E51 000007 Po= yd :: PROGRAM COUNTER 

53 -*PRIORITY LEVEL DEFINITIONS 

654 oooooo Pro= 0 : PRIORITY LEVEL 0 

55 990040 PRiz 40 tIPRIORITY LEVEL 1 

656 900100 PRe= 100 :: PRIORITY LEVEL 2 

57 000140 PRa= 140 ; sPRIORT Y LEVEL 3 

ns fis: 848 a LEVEL 

bel 900340 PR7= «340 ::PRIORITY LEVEL 7 

bbs fou je" SHITCH REGISTER” oth i DEFINITIONS 

EES 949000 Swi4= 40000 

EGE 820900 Swi3= 20000 


bE7 010089 SWi2= 19000 


TOTO Ne be = 
ne OWONMW£ wT 


piledindinio te te-tatené-teate 


Oe 
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EB-77 BASIC DEFINI TaN 
004000 SWil= 4000 
002000 SWi0= 2000 
001000 SWOS= 1000 
006400 Swog= 400 
00020 SwO7= 200 
00010 SWOb= 100 
000040 SWOS= 0 
900020 SWwO4¥= 20 
000010 SWO3= 10 


St we i 


“EQUIV §wO0;SwO 


-¥DATA BIT DEFINITIONS (BITOO TO BITIS) 
100000 BIT1S= 100000 
049000 BIT14= 40000 
o20000 BIT13= 20000 
010000 BITle= 10000 
004000 BITl1l= 4000 
902000 BIT10= 2000 
061000 BITO9= 1000 
000400 BITO8= 400 
900200 BITO7= 200 
55010 BITOb= 100 
4 ITOS= 40 
900020 BITO4¥= 20 
00001C BITO3= 10 
000004 BITO2= 4 
gooa02 BITOl= 2 
000001 BITOO= 1 
“EQUIV BITO9,BIT9 
‘EQUIV BITOS,BITS 
EQUIV BITO7,BIT7 
EQUIV BITOS,BIT6 
EQUIV BITOS.BITS 
EQUIV BITOY;BITY 
EQUIV BITO3,BIT3 
EQUIV BITO2;BIT2 
EQUIV SITOI,BITI 
EQUIV BITOO,BITO 
;¥BASIC “CPU” TRAP VECTOR ADDRESSES 
oo00004 ERRVEC= 4 TIME OUT AND OTHER ERRORS 
900010 RESVEC= 10 ; RESERVED AND ILLEGAL INSTRUCTIONS 
000014 TBITYEC=14 T 


000014 TRIVEC= 14 i Rack TRAP 


MRINDEC-11-DZVTC-D 
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000174 
000176 
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000014 


oo00c0 


000174 
000000 
oc0000 


C 
000137 


001340 


CO1409 


FO0e2 


21-FEB-77 15:32 PAGE 17 


BASIC DEFINITIONS 
BPTVEC= 14 

bOlY C= so 

WRVEC= 24 
EMTVEC= 30 
TRAPVEC=34 

TKVEC= 60 


TPVEC= 64 
PIRQVEC=240 


+ REO OUT TRAP (BPT 
NP 1 parPur TRAP (JOT) #aSCOPES# 


 Buaron TRAP (EMT) **ERROR## 
;;TTY KEYBOARD VECTOR 


!tTTY PRINTER VECTOR 
'IPROGRAM INTERRUPT REQUEST VECTOR 


SBTTL OPERATIONAL SWITCH SETTINGS 


SWITCH 


;% 
;% 
7% 
;# 
;* 13 
;% 
;* 
:% 
5 


BTTL’ TRAP CATCHER 


=0 

7 ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT™ 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPT 

LOCATION, a. CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: WORD 0 
SWREG: 


JMP 

JMP RBEG 
IMP BEGIN1 
JMP BEGINe 
JMP BEGINS 


WORD O 
.SBTTL PRAT ING pooness (es) 


;; SOFTWARE DISPLAY REGISTER 
;; SOFTWARE SWITCH REGISTER 


JUMP TO oe RODRESS OF PROGRAM 
;JUMP TO RESTART ADDRESS 

‘TUM TO KEYBOARD CHARACTER TEST 

: JUMP YR i yg aN VALUE LOOF 


CH 
;JUMP TO W.F. SPECTAL TEST PARAM. 


pzvTc atte 15:27 COMMON TAGS 
758 .SBTTL COMMON TAGS 
761 $ + LEEKS ERRESEREL ERE RHEE ASSA SA AASE RA SAS LEAF LAEAAAAAAAAAALFAASALLATE 
762  ETHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
ze3 :#USED IN THE PROGRAM. 
765 001100 .21100 
756 001100 xe ScHTAG: i START 0 OF COMMON Tacs 
78 BRT TRS SORE. Sr eth Me = CEMA FRE TES NuMBER 
: .BY 
oRA BBY TR ooo She Sane WOR - i EBNTAING EPROB St ifeRaTIoN COUNT 
771 001196 oog0000 $LPADR: .WORD 0 :: CONTAINS SCOPE LOOP ADDRESS 
772 001110 oo0000 SLPERR: .WORD O : CONTAINS SCOPE RETURN FOR ERRORS 
773 OOllie o0g000 SERTTL: .WORD 0 pyle he OTAL ERRORS DETECT D 
roe ODIIIS Siemar: “BYTE 1  OONTAING MAK. ERRORS P 
a 4 is 
776 001116 pooboe SERRPC: .WOR 2 ik NTA Ne PC OF nrg ie’ HRermucraon 
777 001120 $GDADR: .WORD 9 CONTAINS ADDRESS OF 
778 901122 o00000 $BDADR: .WORD 0 ;;CONTAINS ADDRESS OF Bop ota 
779 001124 o00000 $GDDAT: .WORD 0 ;;CONTAINS * GOOD’ 
780 001126 o00000 $BDDAT: .WORD 0 NTAINS ’BAD’ DA A 
781 001130 oo90000 .WORD 0 ::RESERVED--NOT TO BE USED 
782 001132 op0000 .WORD O 
783 001134 000 SAUTOB: .BYTE 0 : ;AUTOMATIC MODE INDICATOR 
784 901135 000 SINTAG: .BYTE 0 : INTERRUPT MODE INDICATOR 
795 0011.36 0000 0 ORD 0 
786 001140 177570 DSWR ; ;ADDRESS OF SWITCH REGISTER 
787 001142 177570 DISPLAY: .WORD ODISP : ADDRESS OF DISPLAY REGISTER 
798 001144 177560 STK 177560 s;1TY 
789 601146 177562 STKB 177562 titty KB 
730 001180 177564 STFS: 177564 Wy Y PRINTER S18 STATUS REG. ADORESS 
bah GGtieg 177368 NOPE. TEVRES oo ii Lovet YER eee ARat tea FOR FToLs 
793 OO1155 002 SFILLS: .BYTE 2 :3£0 NTAINS & OF FILLER CHARACTERS REQUIRED 
794 961156 O12 FILLC: .BYT je ;:INSERT FILL CHARS. AF LINE FEEC™ 
795 Ii TPFLG: :BYT "TERMINAL AVAILABLE” FLAG (BIT<O7> =02VE 
796 ON1160 o90000 SREGAD: .WORD 0 : CONTAINS sates’ RODRESS FROM 
797 tt ) WAS OBTAINED 
798 001162 osoo00c $REGO: .WORD O CONTAINS (($REGAD) +0) 
799 001164 og0000 SREG1: .WORD 0 ; CONTAINS ss REGAD +2 
e00 001156 077 SUES: .ASCII 7?/ $s QUEST ION 
801 O01167 O15 SCRLF: .ASCII <15> : CARRIAGE RETURN 
02 901176 o9000!2 SLF: LASCIZ <12 


LINE FEEC 
803 (ee SER ass iets TT Hs | REC ie aR EC 


MRINDEC-11-DZVTC-D 
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wMmooomonmcom@mdc 
TU be — bb 0 
OWOvTM lwo 


001172 


001172 


001200 


001202 


001230 


001232 


001e4e 
001244 


0012e5e 


001254 
001256 
001260 
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020045 


000000 


OeCile 


cooc0s 


020141 


000000 


020230 


177560 


000000 
177560 
100011 
000000 


900300 
000005 
000080 


Oe 
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ERROR POINTER TABLE 


-SBTTL ERROR POINTER TABLE 


TUS EEA PRES HE REO 


; HLOCATION ches cuts wun INDICATES WHICH ITEM IN 


R_EACH_ ERROR THAT CAN 
HE INDEX NUMBER FOUND 


: ¥NO Tits eo he ghey PERTINENT DATA_IS ¢ 
ENOTES: feof ITEM IN THE TABLE CONTAINS 4 POINTERS SEER SNED as F 
3 EM ;;POINTS TO THE aeeae MESSAGE 
:% DH ;;POINTS TO hs | DATA HEADER 
;@ DT ;;POINTS TO T ara 
:* OF ;;POINTS TO THE DATA FORMAT 
SERRTB: 
sITEN 1 
EM1 ;ERROR FLAG ON HOST TRANSMIT STATUS 
DH1 : ERRPC VTNOW TSTNUM 
pit : SERRPC VTNOW TSTNUM 
sITEM 2 
EMe2 :NO a peut FLAG RECEIVED 
DH1 : ERRPC TNOW  TSTNUM 
grt : SERRPC VINOM TSTNUM 
sITEN 3 
EM3 ; INCORRECT I.D. RESPONSE 
DH3 -ERRPC VTNOW 1ST WD 2ND WD 33RD WD 
gts ? SERRPC vTNOW SAVEY SAVE2 SAVE3 
sITEM 4 
EMY ; INCORRECT OR UNEXPECTED peyt CHARACTER 
DHY ERR PC YVTNOW TSTNUM'~ EXP RCVO 
ee : SERRPC VTNOW  TSTNUM §GDDAT $800AT 
sITEM §S 
: INVALIC BUSS ADDRESS, TRY AGAIN 
5 
FIRST: 177560 ;FIRST DEVICE ADDRESS OF SEQUIENTAL DL-11-A“S TYPE DEVIC 
: DEFA ULT TO THE CONSOLE ADDRESS 
AST: LAST DEVICE ADDRESS 4 DL-L1-A/B TYPE 
YVTNOW: 177560 s CURRENT pEvICE BUS Ess 
TCT: 100011 COPIER PAP AVE RouNt «LOW BYTE> 
TSTNUM: O ERROR PATTERN 
IMEO: 300 5 CHARO TER FLAG ps Sil CONSTANT 
SUBTST: §S :SUBTEST DELAY CONSTA 
VTEXX: OQ :1.0. AND CHARASTI 25 


fo Teel - PERTINENT. 


Ma TNE CS ii “Oevit 


D2VT 
860 


001262 


001330 
001332 


001334 
001336 


001340 


001454 


001456 


001472 


001476 
001504 


Oo1e20 


00i5e6 
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oco0s3 


000690 
000000 
000000 
000000 


022626 
104005 


012737 


o0c00s 


012706 


012706 
012737 


012737 


o0204e2 


001274 
001332 
001274 
o02042 
010eS4 
907400 


007104 
000001 


00110C 
061140 
001100 


023224 
000340 


Bogs46 


C24360 


o0204C 


000904 
000606 


o02040 
002040 
002040 


002040 
001330 


000034 


x4 2 Ue 
cRhok Boinredteee we = 


TOTALC: 960. ph 1920 tg “GHRACTER aunt 
Lo: . A B 
vade i Of Ge RHAR Potint 
VH1: 6. ;l2. ‘172 VERTICAL LINE COUNT 

He: 3- 36. 1/4 VERTICAL LINE COUNT 
PRICNT: 

TIS: 177560 ;DEVICE ADDRESSES 
tly fle oe 7+ a lm 

Bp: {55eEe SUT Bat 

STCHAR: 0 5 TEMP REG’S 
LASTCH: 140 ;0R 200 FIR a Ae poe VaL.ID CHARACTER 
TEMP: 0 ;T M 
TEMPO: O 
PNTWID: 132. ; COLUMN con FOR LINE PRINTER. 

IDTH: 980. ; COLU WICTH 
SAVE1: QO i HP REG! S 
SAVE2: O 
SAVES: CG 
SAVEY: 
WFTEST: :NON-ZERO IF SA = 224 
BUSSTR: CMP (SP)+, (SP)+ ;POP STACK 

ERROR 5 : INVALID BUSS ADDRESS 
BEGIN: MOV 8TST1,WHERE ;STARTING ACCEPTANCE TEST ADDRESS 
CLR SAVE4Y 


WETEST 
MOV #BUSSTR, a84 
MOV #340, a%6 


CLR PRTCAT 

BR GINA 
MANFU: INC WFTEST : SET PARAM. 
RBEGIN: CLR PRTCNT ‘RESTART’ ADDRESS 


ae are ts WHERE 
BEGIN3: MOV #KRBECH, WHERE  ;START AT ECHO LOOP 


BR 
BEGINI: BeY areTsT, ,WHERE ;STARTING CHARACTER TEST ADDRE 


ss 
ss 


BEGINe: 44 #KRBECO, WHERE ;STARTING CHARACTER LOOP ADDRES 
GIN: #1, SAVES 
GINA: 
.SBTTL A ES HE COMMON TAG 
;: CLEAR COMM po AGS (SCMTAG) AREA 
TAG, R6 ;;FIRST LOCATION TO BE CLEARED 

UR tac) )+ ;:CLEAR MEMORY LOCATION 

CMP #SWR,R& ;;DONE? 

ae -6 LOOP BACK IF NO 

K, SP SETUP THE STACK POINTER 


#STACK 
INITIALIZE A FEW VECTORS 


#SSCOPE ovigcee ti EvE VECTOR FOR SCOPE ROUTINE 


JO0e2 


MAINDEC-11-DZVTC-D a 1 27(1006) 21-FEB-77 15:32 PAGE 21 
Bey Tee Pll 21-FEB-77 15:2 i INITIALIZE THE COMMON TAGS 


916 001534 012737 000340 000036 MOV #340, J#TRAPVEC+2;LEVEL 7 
Sie RIESE Lara Geiss ERY EMER, ETRER FLARE VECTOR 
313 O01556 013737 06786 906750 mov —- SENDET SEOPCT :} SETUP E ee ae 
ee ee See ee are FOR a HARBUARE™ SU 7salToH pests! NATTA IE THE NB OOR TY Te a 
922 te Qu UAL TOA” Tue FOR R SOF TWARE CWITCH REC TSTER. 
a53 Solee btea5 Dolese 000004 roy ‘aiearve ayERRVE ay P ERROR VECTOR 
ee te gta ce 
a5 E te pase ? 155 77 177312 CMP SUR phe TO REFERENCE HARDWARE Sid ae 
328 001626 o0i0le BNE + ; BRANCH IF NO TIMEOUT TRAP OCCURRED 
$30 001630 900403 BR 653 fed IF NO TIMEOUT 
331 001632 012716 001640 64S: Hoy #65$, (SP) :SET UP FOR TRAP RETURN 
933 O01640 012737 Of0176 O01140 65$: MOV #SWREG, SWR ane TO SOFTWARE SWR 
934 O01646 Ole737 000174 O0114e2 MOV ayaa DISPLAY 
33 001654 012637 oocoo4 663: MOV (SP)+,8ERRVEC ;;RESTORE ERROR VECTOR 
937 O01660 905037 0o11042 CLR IGNORE 
938 O01664 GOS5037 011024 CLR p 
939 001670 012737 022210 ocDo20 MOV BMSCOPE, J#IOTVEC 
940 001676 005737 001330 TST SAVEY sTEST FLAG 
941 001702 001036 BNE SBEGIN BR IF NON-ZERO 
942 001704 104401 
943 001706 Ole712 TITLE 
944 001710 105777 177224 aSWR 
se Gait jouer My Nanianl tl 225 glenn 
ai 001720 017658 ‘ WHATS ;FIND OUT THE DEVICE ADDRESS 
949 001724 012637 oo124e2 MOV (SP)+. FIRST SAVE THE ADDRESS 
950 001730 022737 160000 oo124e CMP #160000, FIRST 
$51 001736 101367 BHI 11¢ :BR IF INVALID 
952 001740 005777 177276 TST aFIRST TEST IF VALID 
953 001744 005037 O01244 CLR LAST 
954 091750 104401 TYPE R 
356 00175¢ 017761 WHATL :FIND OUT THE LAST ADDRESS 
S L 
957 001756 012637 001244 MOY (SP)+, LAST ;SAVE LAST ADDRESS 
958 001762 005777 177256 TST BLAST TEST IF VALID 
969 001766 012737 OO0008 oo0004 MOV #6, 84 
960 001774 005037 900006 CLR ae 
361 002000 013737 001242 OO01246 SBEGIN: MOV FIRST, VTNOW sLOAD INITIAL DEVICE ADDRESS 
963 002006 012700 001276 RSTRT: MOV #VTIS,RO :LOAD POINTER 
964 OO020i2 013701 O01246 MOV VTNOW RI LOAD INPUT STAT 
95 002016 010120 MOV RL, (RO)+ 
966 002020 005721 TST 
967 O02022 010120 MOV R1, (RO)+ 
368 002024 005721 TST (RL)+ 
969 002026 010120 MOV Ri, (RO)+ 
970 002030 9005721 TST i 


(R1)+ 
971 002032 010110 MOV R1, (RO) 


‘Oe 


SERRE W-Ree-re ED! 70) REGRET Tl 


972 002034 000177 oDD000 JMP QWHERE ; JUMP TO STARTING ADDRESS 
973 o02040 oo204e WHERE: TST1 
a7 "4 5 See ee ENR TT OMINAL IDENTIFICATION veer 
975 : &TE A TERMINAL IDENTIFICATION TEST 
aS jj teteseeseeevsesaseeaeeeaneeaniesaeeaneeesseeaseeaneeastensteats 
ooo4 Ti: 
78 BAS : BBS seh 011616 7&8 RS, AMSG ;DISPLAY HEADER 
979 o002050 013424 M914 
980 aas0se 04537 O11616 JSR RS, AMSG ;SEND REQUEST FOR IDENTIFICATION 
381 2056 017251 RFI 
983 002060 004737 012620 JSR PC, GETCHR :GET A CHARACTER 
984 002064 000537 BR 25° -BR BACK IF NO INPUT 
985 002066 010037 001330 MOY RO, SAVEY SAVE RESPONSE 
986 002072 004737 O12620 ISR FC, GETCHR ET A CHAR. 
oo b02076 Ose iia BR ::BR IF NO INPUT 
0 1324 V 
989 phe 100 el 012620 JSR e. cata ;GET A CHAR. 
990 002110 Oo0S525 BR ::;BR IF NO INPUT 
991 O02112 010037 001326 MOV a, 
238 o0e1 & (042737 177500 9 1330 IC $7600) ;MASK BIT 7 
19124 042737 177 1324 I¢ #199 oAvES 
994 002132 042737 177600 001326 BIC 8177600, SAVES m 
995 002140 005737 001332 TST WFETEST 
996 002144 001402 BEQ 10$ 
997 002146 004737 o11544 ISR Pe ADELAY ;EXTRA DELAY 
998 002152 122737 000033 001330 10S:  CMPB #33,SAVE4 ; TEST FIRST CHAR. 
999 002160 Oo1015 BNE ‘BR T 
1000 O02162 122737 oo00S7 001324 CMPB sw" /, SAVE2 ‘TEST SECOND CHAR. 
1001 002170 OO1011 BNE 1$ *BR TO ERROR 
1003 :NOW DETERMINE WHICH VTSXX AND ITS CHARASTICS 
1009S 002172 ocosooO CLR RO ;CLEAR INITIAL POINTER 
1006 O02174 126037 oOe409 O01326 3: CMPB =‘ TYPEPT(RO),SAVE3” ;TEST 1.D. TO KNOWN YALUE 
1007 OO02202 001406 BEQ 4 :BR IF CORRECT 
1008 O02204 005720 TST (RO)+ :BUMP THE INDEX 
1009 002206 105760 oo24o0 TSTB 4s: TYPEPT(RO) ‘CHECK IF MORE VALID I.D.'S 
1010 O0e2i2 001370 BNE 3$ !BR IF MORE 
1011 002214 104003 1S: ERROR 3 ; INCORRECT I.D. CODE 
Ole O022i6 oo0s000 11$: CLR RO !DEFAULT TO YTSOA MODE 
1014 sHAVE NOW FOUND THE I.D. - REPORT TO CONSOLE 
1016 002220 016037 O02400 oD1260 4S: MOV TYPEPT(RO) , VTSXX ;SAVE I.D. AND CHARASTICS 
1017 002226 016037 O02e432 Oo224e MOV MSGTYP(RO) ‘S$ :SAVE ASCII MESSAGE POINTER 
1018 002234 001403 BEQ 13$ BR IF ZERO MESSAGE POINTER 
1019 002236 004537 0O11616 JSR pe AMSG TELL THE UU 
1920 CO2e42 O1e460 S$: VTSOA ‘POINTER TO VTSXX MESSAGE 
1022 002244 012737 001700 O01264 13%: MOV #960. , TOTALC :LOAD TOTAL CHARACTER COUNT 
1023 002252 012737 OO0014 O0l266 MOY #12. .VHO :LOAD MAX VERTICAL LINE COUNT 
1924 002260 012737 o000053 dOleb2 MOV #53, LASTLN :LOAD LAST LINE vALUE +40 FOR DCA TESTING 
1025 OG2266 005737 001260 TST VTSKX :TEST IF ey LINES AVAIL 
1026 002272 100007 BPL ES :BR IF NOT 
1027 002274 0063327 001264 ASL TOTALC ‘ADJUST CHARACTER COUNT 


MAINDEC-11 


-D2V 
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158 
10 


bg304 


002370 


0837 


002400 
002402 


002430 


002432 


002452 
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Beer? BB 
Boeesy 01870 


013737 001270 
7 7 


e737 OOT4b 
032737 004000 


Bee7a? 009940 


000403 


60718 
0 


00240 
By oo 


000101 
040102 


000000 
000000 


Sec 


000009 


66 . 
4 ‘001262 


001270 
cole7e 


001310 
001260 


001310 
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Tl A 


AS5 le. ,LASTLN 


6S: MOV we VH1 
ASR 
MOV VHI, VHe 
ASR VH 


MOV #140, LASTCH 
BIT #BITL1, VTSXXx 


BEQ $ 
a ADD #40, LASTCH 
; BR 12% 
23: ERROR 2 
R 11$ 
NOP 


128: Bee PEEBELAY 


;1.0. “i AND sumed “yg 


sae CREE onessin (ESC ¥) + “ESC-8" + “ESC-—” 


ote te ae eee 
= pe 


; 
; 
; 
; 
; 
; 
: 


;LOW BYT 


TYPEPT: .WORD 00101 ; 
-WORD OQ4010e ;1. 


I. 
‘ 31. 
“WORD 13511 Hf 

if 


‘howd 176108 


Oo0000: 


;ASCII MESSAGE POINTERS 
MSGTYP: VTSOA 
VTSOB 


PAGE 23 
TERMINAL IDENTIFICATION TEST 


iBDIUET VALTO LINE # +40 


;LOAD OTHER LINE COUNTS 


;LOAD FIRST NON-VALID CHARACTER 
TEST IF UPPER-LOWER CASE TERM. 


:BR 
‘UPDATE TO ALLOW UP-Lii CASE CHARACTER SET 
;;BR AND START TESTING 
;NO RESPONSE FROM UUT ADTER ASKING FOR IDENTIFY 


;;BR AND START TESTING 


AND "LOuER CASE CHARACTERS 


PPER 
PRINTER CONNECTED 
VTS2X MODEL 


ONTAINS THE I.D. FOR EACH KNOWN VTS?? 


101 -VTSOA 

102 :VT5OB COPIER 

103 !VTSS 24. LINES, COPIER(VTSO BASED) . 
110 :VTSOH COPIER Bea VTSOH KEYPAD 

113 ivIbe 

ae Vee Ut Sante 

the Tee, B 24LINES, NTR’ COPIER(VTS2 BASED) 


;¥TSOA NO COPIER 


Vee copie 


Mts COPIER . 


oY 
:VTS2 WITH COPIER 
:¥T52 WITH PRINTER 


O2 


hum 
MAINDEC-11-DZ2VTC- MACY11 27(1006) 17i-FeB- BY 15:32 PAGE 24 
O2VTCD.PL1 21-FEB-77 15:27 TERMINAL IDENTIFICATION TEST 
1088 goes ooocooa 0 
{bse Bosues boo0H0 
Hatt © KEKKKEL KERR KESSEL EE ELE RE ELE ERE LEELA EARLS ALAR LALA ELAR LALA ELELE 
i089 tTEST 2 3 FULL SCREEN OF A CHARACTER 
10893 * © SRA RSKARAEA ERLE A AREAL RAR AA RELA AAA RSA LAA LAA ALLA A AAL HALLE AAAHAEE 
1990 Od2462 900004 tSt2: SCOPE 
1092 o024%64 004537 O11616 JSR RS, AMSG 
1033 002470 013013 M91 
1095 002472 004737 012556 ISR PC, FILLWC ;FILL SCREEN WITH A ‘E'S | 
1087 002476 004737 011436 JSR PC, DELAY 5 | 
1099 ; [eeeeqeNENN hi. 
1100 ATE C DATA TRANSFER PATH TEST 
1101 P $4 REE, BE Rk RM | i 
1102 oO0eS02 oo0004 } T3: SCOPE 
1103 002504 004537 O11616 JSR RS, AMSG :DISPLAY HEADING 
1104 002510 013061 M92 
1108 002512 013737 001270 001312 MOV VH1, TEMP ;SET-UP A COUNTER 
{ibe 002520 004537 011330 ISR RS,DTPSR ; SET-UP BUFFER 
1108 002524 000077 77 :OCTAL ’ 
1103 002526 000100 100 - f0CTAL 13° 
4537 011334 ISR RS, DTPSRB T-UP BUFFER 
{tid BesesG BR EsE L439 138 RTA a 
1113 002536 oo00S2 cf tOCTAL ‘ 
111 40 004737 01041 18: *JSR PC, XPRNT ;DISPLAY TH 4 LINE 
tite pp Seda p 2535 Bop ats DEC TEMP . $COMPLETED FULL COUNT? 
1117 002550 001373 BNE ‘BRANCH IF NOT COMPLETED 
1119 O025S2 004737 011436 JSR ELAY -TEST DELAY SWITCH 
1120  seaaak tremmacekeliniemiaueanlcttiatktcasssieaseieeemaseanes 
lel ETEST 4 D SINGLE CHARACTER ACROSS ALL COLS. <ALL CHARACTERS> 
lle2 © SEKKLKEL AE REKAS ELA SESA KAS RA LAER ARREARS LA ARAS HAA LER AARE LARA SAARAEE 
1123 oO025S6 op0004 tST4: SCOPE 
11204 002560 004537 011616 JSR RS, AMSG ;DISPLAY HEADING 
1125 002564 013110 M93 
1186 012737 o00040 001306 MOV #40, STCHAR ;SET-UP STARTING CHARACTER 
1128 002574 013737 001266 001314 MOV VHO, TEMPO ;LOAD COUNT 
1129 O02602 013701 001306 1$: MOV STCHAR, R1 :LOAD Rl= TO CHARACTER 
1130 002696 0904737 010310 JSR PC, PILGUF ‘LOAD A BUFFER WITH THAT CHARACTER 
1136 002612 004737 o1041e ISR PC, XPRNT :DISPLAY A FULL LINE FROM THE BUFFER 
1134 002616 005337 001314 DEC TEMPO sDONE ? } 
1132 BOseSd BONDS? O1L4aE BME OBR eta hesentaan ; 
1137 002630 013737 OO1266 o01314 - MOV VHO, TEMPO 
1138 002636 605237 004306 2$: INC STCHAR ;UPDATE THE CHARACTER 
1139 002642 023737 001310 001306 CMP LASTCH,STCHAR ;TEST FOR FINAL CHARACTER 
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1140 002650 001354 BNE 1$ ;BRANCH IF NOT COMPLETED 

Lise 002652 004737 011436 JSR PC, DELAY ;TEST DELAY SWITCH 
i144 . 5 AKRAM EERE LEAR ERLE R EERE REAR EEE RL EERE EERE ERLE AEE EEL ES 

114 -eTEST S E ROTATING CHARACTERS ACROSS ALL COLS. <ALL CHARACTERS> 
1 © RELKEGRERKS RARE EKER EGR E ALAR RRR ALE RL AEE RE EAE R ALARA RA ALA RAKES 

1147 002656 000004 t$1S: SCOPE 

1148 002660 004537 O11616 ISR RS, AMSG DISPLAY HEADING 

1149 Obes 013138 M94 

1150 e666 012737 OO0040 001306 MOV #40, STCHAR ;SET-UP STARTING CHARACTER 

Hiss Maes aire pias cous gay Beene? HEBER 2a compere ! 

tied Bosse Bowes} BThasS "JSR Rec ic’ ’ {LOAD A BUFFER SFARTING WITH | 

L185 002712 001320 : WIDTH : THAT CHARACTER AND WIDTH <BYTE> | 

L187 002714 004737 oO1o412 ISR PC, XPRNT ;DISPLAY A FULL LINE FROM THE BUFFER 
1159 002720 005337 001314 DEC TEMPO ;DONE ? | 

1160 002724 001005 BNE 2$ :BR IF YES 

1161 002726 004737 011436 JSR PC, DELAY | 

1l62 002732 013737 001266 001314 MOV VHO. TEMPO 

Hey Gisrad Gesrar GBISEG cise “die gst srowm ‘SERN Fon Foactrcuperien 

LES Be 752 x 1353 BNE 1g . t BRANCH IF NOT cSNEPETED ; 

1167 O027S4 004737 011436 JSR PC, DELAY -TEST DELAY SWITCH 

1168 s PPPETETESSTSTTETESTOSTTT TTT TT Trt t ttt tt ttt tt ttt ttt ttt ttt titi tt 

116 : T6 RSOR MOTION TEST 

1170 es EX HHHL KALLA ELLE REAR ERLE AE EEA EEA EERE ERLE REA E RELA AE REE LER ERE 

1171 002760 ooD004 : +$T6: SCOPE 

1172 O02762 004537 011616 JSR RS, AMSG ;DISPLAY HEADING 

1173 002766. 013203 yo M96 - 

1178 | ;ROUTINE TO LOAD REFERENCE LINES FOR CURSOR MOTION TEST 

1177 002770 012700 oP4614 LBMT: MOV #BUFFER, RO ;LOAD POINTER 

1178 002774 012720 dO00ES MOV #65, (RO)+ “LOAD #5 

1179 003000 013701 001270 MOV VH1,R1 “LOAD R1 

1180 003004 005301 DEC R1 . 

1181 003006 004737 oO03104 «= ISR PC, MOVDN1 ;MOVE CURSOR DOWN 

1182 003012 004737 003122 JSR PC'MOVRIG :MOVE RIGHT 

1183 003016 112720 o00062 MOVB #62, (RO)+ *LOAD #2 

1184 003022 004737 003122 ISR PC, MOVRIG *MOVE RIGHT 

1185 003026 004737 O031e2 JSR PC’ MOVRIG :MOVE RIGHT 

1186 003032 112720 oo0040 Move #40, (RO)+ 

1187 003036 112720 o00061 MOVB #61, (RO)+ sLOAD #1 

1188 003042 004737 003100 JSR PC, MOVOWN *MOVE DOWN 

1189 003046 004737 O03icee JSR PC’ MOVRIG “MOVE RIGHT 

Hat oeeeee Guerey fee a ne 

11 03062 004737 OO3lee JSR PC’ MOVR ;MOVE RIGHT 

1185 pp SpPe 112720 O00064 MOVES #64, (RO) ++ “LOAD #4 

1194 003072 112710 000377 MOVB #377, (RO) : TERM 

1195 003076 oo04e20 BR LBmTi ::BR TO NEXT PART 
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003140 
003144 


003340 
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01370 


000207 


004737 
004737 


013701 


005301 


001270 
000015 
o0001e 


ocode4 
000040 


000101 


000130 
000054 
020000 


000033 
000104 


000019 


000130 
000010 
001270 
020000 


000033 
000152 


000012 


000130 


000103 


001260 


001260 


B03 


21-FEB- gs 15:32 PAGE 26 
T6 CURSOR MOTION TEST 


MOVOWN: 
MOVONI: 


MOVRIG: 
1$: M 


LBMTI1: 


#20. ,R1 
#40, (RO)+ 
Rl 

1$ 

PC 


PC, XPRNT 
PC, DELAY 


;CURSOR MOTION SUBROUTINE 


LCM: OV R1 
MOV SBUPFER RO 

1S: MOVB 33, (RO) 
MOVB #101, (RO)+ 
DEC 
BNE ie 
MOVE #130, (ROD 
MOV #44. 
BIT #B1T13, VTSXX 
BEQ 20$ 

2$: MOVB #33, (RO)+ 
MOVE #104, (RO)+ 
DEC Rl 
BPL Ay 
BR 21S 

20$: MOVB #10,(RO)+ 
DEC Ri 
BPL 20% 

21$: MOVB #130, (RO)+ 
MOVB #10, tka) 
MOV 
BIT Witt, VTSXX 
BEQ 3 

3S: MOVB #33, (RO)+ 
MOVB #102, (RO)+ 
DEC 
BNE & 
BR 31$ 

30$:  MOVB Hie, (RO)+ 
DEC 
BNE As 

31$: MOVB  #130,(RO)+ 
MOV #10, (RO) 
MOY 

4g: MOVB 135 “ERD 
MOVE #103, (RO)+ 
DEC RI 


;LOAD CR 
;LOAD LF 


;LOOP UNTIL DONE 
ESIT 


;LOAD R 
: LOAD SPACES 


;LOOP UNTIL. DONE 


;DISPLAY THIS LINE 
;TEST DELAY SWITCH 


LIF shay * A TE = vill“p “ESC-D” FOR CURSOR LEFT AND USE "ESC-B” FOR CURSOR DOWN 


UN 
LOAD BUFFER POINTER 
‘LOAD ’ “e 
LOAD ’A’ CURSOR UP 


;LOOP UNTIL DONE 
;LOAD *x’ 


‘LOAD COUNT 
‘TEST IF VTSOH TYPE 
BR IF NOT 


’ 


“L ESC’ 
;LOAD *CURSOR LEFT" 


;LOOP UNTIL DONE 


;LOAD BACKSPACE 

; DONE 

;BR IF NOT. 

‘LOAD BACKSPACE 

sb COUNT 

a IF VTSOH TYPE 

; LOAD ESC? CURSOR DOWN 


;LOOP UNTIL DONE 


; 


;LOAD CURSOR DOWN (LF) 
;DONE_? 
;BR IF NOT 
;LOAD *X? 
;LOAD BACKSPACE 
LOAD COUNT 


LOAD 
CORD *C’ CURSOR RIGHT 


Bavteb. 


C-11 “weir 


Pll 


003520 


003524 
003530 
003532 


003536 
003542 
003544 


002550 
003554 
003556 


003562 
002565 


[-FeB-77 
100372 


016163 


000004 
004537 
013236 


012700 


112720 
004737 


004537 
000000 
004737 


004537 
000001 
004737 


004537 
000002 
004737 


004537 
000003 
004737 


004537 
000004 
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000033 


011616 
001260 
O1161& 


O1i616 


024614 
00111 
Boo40 


000015 
a003?? 
010412 
003702 
010412 
003702 
010412 
003702 
010412 
063702 
010412 
003702 
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Té F 
BPL 
MOVB = #130, (RO) 
MOVB #33, (RO)+ 
MOVS #110, (RO) 
MOVE #130; (RO) 
MOVB #377, (RO) 
JSR PC, XPRNT 
JSR PC, DELAY 
JSR S* AMSG 
CRLFB 
TST VTSXX 
BPL TST7 
ISR RS, AMSG 
CRLFB 


tk 

+617 CoP 
JSR RS, AMSG 
M97 

LRL: MOV #BUFFER,R 
MOVB 87, (RO)+ 
MOV #9! Ri 

1$: MOV #6. ,R2 
MOVE #111. (ROD 

2S: MOVB #40, (RO)+ 
DEC Re 
BPL 2$ 
DEC R1 
BPL 1g 
MOVE #15, (RO)+ 
MOVB #12.(RO)+ 
MOVB =- #377, (RO} 
ISR PC, XPRNT 
JSR RS,LTAB 
ISR PC, XPRNT 
ISR RS,LTAB 
JSR PC, XPRNT 
ISR RS,LTAB 
ISR PC, XPRNT 
JSR R5,LTAB 
ISR PC, XPRNT 
JSR RS,LTAB 


CO3 


CURSOR MOTION TEST 


;LOOP UNTIL DONE 
sLOR x’ : 


+ LOAD *H’ CURSOR HOME 


;DISPLAY THIS LINE 
; DELAY 
;TEST IF 24 bee? 


BR IF 1 E 
: SCROLL MORE LINES 


itest 7G TAB, BACKSPACE AND BELL TEST 
G TES 


BACKSPACE AND BELL 


ill llllaaealaeeeaeeeaneeneeeaa 


;DISPLAY HEADING 


;LOAD BUFFER POINTER 
LOAD ° 
?LOAD LINE COUNT 
:LOAD COLUMN COUNT 
+ :LOA COLUMN MARK 
‘LOA 

BR UNTIL DONE 
?BR UNTIL FINISHED ALL TAB STOPS 
“LOAD CR 


:LOAD LF 
+ ‘ORD TERM 


0 


;LOAD TAB LINE #1 
;DISPLAY THIS LINE 
;LOAD TAB LINE #2 
;DISPLAY THIS LINE 
;LOAD TAB LINE #3 
;DISPLAY THIS LINE 
;LOAD TAB LINE #4 
;DISPLAY THIS LINE 
;LOAD TAB LINE &S 


pay te ett OY zF- 


bb 6 bb 8 


furor 
LW O.0OON MULE Wlu-OW 


b= + b= b+ bb bs bb + ee 


Ww 


003570 


i) 4 
003700 


003702 


4 
003770 


003772 
003774 
004090 
004902 


OS4005 


004737 
po ae 

0005 
004737 


ma 
04737 


013702 
005302 


000205 


oo0c04 
004537 
013304 
904737 


004737 


Pep-77 1 
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010412 
003702 
01041e 
003702 
010412 


001320 


000040 


000010 


000377 
010412 
011436 


001322 


001322 
000101 


000011 


090015 
000012 
000377 


011616 


Olesse 
C1Li436 


gi-FEB-77 15:35 PAGE it: 
Ti G AB, BACKSPACE AND BELL TEST 


JSR 
JSR 
5 

JSR 


JSR 
6 


JSR 
;NOW EXECUTE THE ’BACKSPACE SECTION 


33: MOVB 


PC, XPRNT 
S,LTAB 
PC, XPRNT 
RS,LTAB 


WIDTH, Re 
e 


3$ 

#377, (RO)+ 
PC, XPRNT 
PC’ DELAY 
TStio 


;DISPLAY THIS LINE 
;LOAD TAB LINE #6 
;DISPLAY THIS LINE 
;LOAD TAB LINE #7 
;DISPLAY THIS LINE 
‘ADJUST WIDTH COUNT 
1g 1. el INTO THE LINE | 
:LOAD # OF CHARACTER POSITIONS 
ie BRCKSPACE CODE 
; DONE 5 eee ? 


4 TERM. 
*EXECUTE ASCII CODE 


TEST DELAY SWITCH 
: BR TO NEXT TEST 


; SUBROUTINE TO LOAD THE TAB TEST INTO THE BUFFER 


LTAB: MOV 
M 


33: MOVB 
es: MOVB 


1$: MOVB 


(RS)+ SAVE! 
HBUFEER, 


? aie 
#111, (Re)+ 
SAVEL,RO 


#101, (R2)+ 
RO 


2g 
#11, (R234 
Rl 


3$ 

#15, (R2)+ 
#12) (Re)+ 
8377, (Re)+ 


; LOAD # OF CHARACTERS 


; COUNTER 

;LOA D BELL AT START OF LINE 
ger THE NO. OF THE CHAR 
;LOAD THE *A’ CHAR. 


‘LOOP UNTIL DONE 
LOAD *TAB’ CHAR 


‘BR TO NEXT TAB COLUMN CHAR 
OAD ‘CR’ 


‘LOAD LF? 
LOAD TERM 
EXIT 


R 
JAeeeeerebeeenieenencanepesneiaateneneareneanenessnaneacaneas 
H 


‘ETEST 10 


FROM CURSOR TO END OF 


s REXKERERALALERE LE SARA LALLA ALAA LAL RA RARE RAALA LALA LET RRLLAAALELE 


téT10: Sco 


7SR 
JSR 


PE 
JSR 
M910 


RS,AMSG 


PC,FILLWC 
PC, OELAY 


;DISPLAY HEADING 


BU rte WITH A CHAR 
RY THIS LINE 


a“ 


US 

MRINDES-11-D2VTC- MACY11 27(1006) i Thee ee 15:32 PAGE 2 

OZVTCO.Pi1 2l-FEB-77 15:27 T19 ERASE ER oH CURSOR TO END OF LINE 
1364 
ie ;LOAD ERASE LINE TEST INTO BUFFER 
1367 4912 0127 LODERL: MOV #BUFFER,RO 
i268 BpaDte 115598 ae MOVB #33, (ROS+ sLOAD ESC 
13639 O04022 112720 bootie MOVB 8’ H: (RO)+ : LOAD HOME 
1370 O04%026 013737 O01266 004130 MOV VHO; 2s : LOAD COUNT 
1371 004034 005337 004130 DEC es 
1372 004040 112720 000033 3$: MOVB #33, (RO)+ AD ESC 
1373 OO4O4H 112720 900113 MOVB ’K. (RO)+ :LOA D ERASE LINE CHAR 
1374 004050 005337 004130 DEC 2s ;FINISHED ? 
1375 004054 100427 BMI 1$ ;BR WHEN DONE 
1376 OO040S6 012737 OO0006 004132 MOY #6. ,10$ ;LOAD COUNT 
1377 poe 4 005737 001260 TST. - VTSKX ; TEST IF 12 LINES 
1378 4070 100005 BPL 4 3BR IF l2 LINE 
1379 004072 006237 004132 ; ASR 10$ : ADJUST HORIZ. COUNT 
1380 004076 000240 NOP 
1381 004100 o00e40 NOP 
1382 004102 000240 NOP 
1383 OO4104 112720 tate 4$: MOV #33, (RO)+ 
1384 004110 112720 00910 MOV #’°C, (RO)+ ;CURSOR RIGHT 
1385 004114 005337 004132 DEC 103 5 
1386 004120 001371 BNE 4¢ ;LOOP 
1387 OO4lee 112720 on00le MOVB #12, (ROj+ CURSOR DOWN 
1388 004126 000744 BR 3$ 
1389 004130 000000 es: 
1399 4132 0008 10$: 0 ; 
tea 4134 112720 000377 1$: MOVB #377, (RO)+ ;LOAD TERM 
1393 
tae 004140 904737 o10412 JSR PC, XPRNT ;DISPLAY THIS TEST 
1338 004144 904737 oO11436 JSR PC, DELAY ; TEST DELAY SWITCH 
1398 5 BERRA ALE E AERA EERE EEE ERLE E ERE ER EAE EERE AREER EEE REREERLE REESE 
1399 s*TEST 11 I ERASE FROM CURSOR TO END OF SCREEN 
1400 Petri ttt ttittttttiti titi tt 
1401 o04150 opD004 +8711: SCOPE 
1402 QOO41S2 Q004S37 O11616 JSR RS,AMSG ;DISPLAY HEADING 
1403 004156 013335 M911 
1404 QO04160 004737 O1e5S6 JSR PC, FILLWC ;FILL BUFFER WITH A CHAR 
1405 :DISPLAY THIS LINE 
prt OO4164 904737 011426 JSR PC, DELAY :DELA 
ioe ;LOAD ERASE SCREEN TEST INTO BUFFER 
1410 004170 013737 001320 904264 LODERS: MOV WIOTH, 2$ ;LOAD COUNT 
14il Bese 006237 O042e64 ASR 
l4le 42e0e O12e700 Oe4614 MOV #BUFFER,RO 
i414 QoMBie Qoeaa7 | poseea oo ee Bee ct & pebaatioedtl 
i4is Bbaste 100373 BPL 1$ !BR UNTIL DONE 
iG 004220 013737 OOL2EE 004264 MOV VHO, 2$ ;LOAD COUNT 
1417 OG4226 112720 000033 4$: MOVB #33, (RO)+ ; ESC 
1418 O04e32 112720 o00112 MOVE #’J,(RO)+ ;LOAD ERASE SCREEN 
14i1$ 004236 005337 Oo04264 DEC 2s *DONE ? 
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004262 
OC4264 
OO4256 
004272 


004276 


004322 
004326 
004330 


004334 


004336 


COM4E4 


21-FEB-77 


004737 
004737 


oo00c4 


Bleali 


005337 
001372 
004737 


oococ4 


032737 


000734 


MACY 11 27( 1006) 


15:27 

000033 
000101 
000377 


010412 
011436 


Ci1S1é 
001270 
011616 
001312 
011436 


G20000 


005074 
001332 


011616 
09033 
1 


000110 
O116i6 
000900 


O11436 


001312 


24614 
e4615 


001260 


024614 
024615 


FO3 


Yi edt 15:32 PAGE 30 


ERASE FROM CURSOR TO END OF SCREEN 


BMI 3 ;BR WHEN DONE 
MOVB #833, (RO)+ :LOA 
OVE an, (RO)+ :LORD CURSOR UP 
38: MOVB 8377, (RO)+ ‘LOAD TERM 
BR s$ 
2$: 0 
S$: ISR PC, XPRNT sDISPLAY THIS TEST 
JSR PC’ DELAY ‘TEST DELAY SWITCH 
+ RLKKKE KEKE EER LEE ERAGE SES REALL LE EAE LK ARAL RAE LAR ELA RAL RAE RALE LAE 
teTEST le J VIDEO COUPLING TEST 
7 yg 2 Reaagageartnnnnamnaiepemmmmianttsaie tensile 
ISR RS, AMSG :DISPLAY HEADER 
MOV VH1, TEMP ;LOAD COUNTER 
i$: JSR RS, AMSG 
PATH 
DEC TEMP ;FINISHED COUNT ? 
BNE ig :BR UNTIL DONE 
ISR PC, DELAY TEST DELAY SWITCH 
; [SeeeeeeennneNNR NOON TT Laan Oe 
‘iTE K RECT CURSOR ADDRESS TEST 
Fag peenmangeomma 68 ESRI 
M NUMBERS ARE GENERATED AND USED AS “Xx” AND “Y" COORDINATES 
‘ADDRESSING a 960 CHARACTER PRINTOUT 
!VERFICATION OF DISPLAY IS PERFORMED VISUALLY BY THE USER 
“EXECUTE 1ST TIME USING “ESC-Y" SEQUENCE AND IF I.D. IS AN “H™ 
: EXECUTE OND TIME USING “BODE 16" SEQUENCE 
BIT #BIT13,VTSXX § ; TEST_IF_DCA TYPE TERMINAL 
BNE 3$ ::BR IF CURSOR ADDRESSING 
13: IMP TST14 :BYPASS THIS TEST 
38: TST WFETEST ‘TEST IF IN W. F. MODE 
BNE 1$ ‘BYPASS IF W.F. MODE 
SR RS, AMSG : ERASE SCREEN AND IDENTIFY TEST 
MOVB 433, BUFFER :LOAD “ESC” CODE 
MOVB Y BUFFER#1 ; LOAD ASCII “Y" (D.C.A. ENABLE) 
JSR PC, “nen RUN TEST WITH ESC Y SEQUENCE 
JSR PC BELA :DELA TESTING 
CMPB ny VTSXX TEST IF VTSOH TYPE DISPLAY 
BNE 1$ : F NOT VTSOH TYPE 
JSR RS, AMSG BRI SCREEN AND IDENTIFY TEST 
MOVE #0, BUFFER ;LOAD “SPACE” AS FIRST VALUE 
MOY #16. BUFFER+1 :LOAD CODE-16 SEQUENCE 
JSR PC ,OCATST 'RUN TEST WITH CODE 16 SEQUENCE 
JSR PC. DELAY 
BR 13° ::BR TO NEXT TEST 


GO3 
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1476 OO44S6 012737 123456 024356 DCATST: tad #123456,SLONUM ;PRIME RANDOM NUMBER GENERATOR 


1477 OO4464 012737 176543 0243 OV #176543, SHINUM 

i478 at 2 piss 7 001264 0 4324 MOV TOTALC, OVRAL he CHAR COUNT 

aan OEMEDE ptaean conten ——- oy WHO SET 0,RO ;LOA 5 ate Sat 19 UFFER 

,’ 

148] Natit pts7p0 peige3 2S: MOV BRSGTNT 1’ TOR Ba: 

1482 094516 012120 is: MOV (R1)+ (RO) + oar 5 SRORACTERS.- 

1483 004520 922701 o0s072 CMP #MSGTAD,R ‘TEST FOR LAST CHAR 

1434 Oovbes 901378 BNE 1g iBR UNTIL DONE 1 LINE 

1485 045 05337 o04746 DEC SET ‘FINISHED ALL LINES 

1486 004532 001367 BNE 2$ NOT 

1387 004534 012737 177777 o24620 MOV #-1, BUFFER+4 TOAD MESSAGE TERMINATOR 

1489 Oo4S42 004737 O2e4e56 GENER: JSR %7 , SRAND ; GENERATE RANDON NUMBER 

1490 004546 013700 024356 MOV $LONUM, RO :GET RNADOM NUMBER 

1491 904552 4 700 177700 BIC #177700, “0 RAN NDOM NO. MUST BE Tuo DIGITS 

1492 04556 027 000037 CMP 40, #37 !NO, MUST BE LESS THAN 40 

toa SOAeES aoaase 001262 Bip SERS TLN LOWER, RAG. at ae BE GREATER THAN S4 OR 6&7 
LIL} y 

1495 004570 101364 BHI GENER ; GREATER, NREGENE ATION 

1496 004572 010037 o0474e MOV 19, yA0DS : STORE RenOOH Y TR OORDINATE 

1497 004576 010001 MOV ‘COPY DAT 

1498 O04600 012737 024634 OO4746 MOV aBLFFERS20, SET LOAD BASE POINTER 

1499 OO4606 162701 Oo0040 SUB ‘MINIMUM Y_ INDEX 

is00 OO4612 o0140S BEG Senex. ‘RESULT, MINIMUM Y COORDINATE 

1501 OO04614 062737 009120 oO474E 1S: ADD #980. , SET :SETUP "Y INDEX LOCATION FOR PRINTOUT 

1592 oOO04622 005301 DEC x1 

1503 O04624 001373 BNE 1$ :Y COORDINATE IS SET 

1504 O04626 004737 oe4es6 GENRX: JSR %7 , SRAND : GENERATE RANDON NUMBER 

1505 004632 013700 024355 MOV $LONUM, RO :GET A RANDOM NUMBER 

1506 004636 042700 177600 BIC #177600, %0 RANDOM NO. MAY BE LESS THAN 200 

1507 O04642 920027 000037 CMP %0, #37 MUST NOT BE LESS THAN 40 

1598 OO464E 101767 BLOS § GENRX ;LOWER, OF ERERAT TON 

i509 O04650 O20027 o00157 CMP 40,8157 - : MUST NOT BE GREATER THAN 157 

1510 004654 101364 BHI GENRX ‘GREATER, REGENERATION 

1511 004656 010037 o04744 MOV %0, XADDS STORE RANDOM X COORDINATE 

15le OO4662 162700 OO00040 SUB #40, “9 : SETUP MINIMUM X INDEX 

1513 OO4666 060037 O04746 ADD 40, SET ; X COOR, FOR PNTOUT. 

1514 004672 013701 OO4746 MOV SET, “1 ‘SETUP ¢ K 

1515 O004676 105711 TSTB) ss (1) "HAS CURRENT CHAR, ALREADY BEEN USED? 

1516 004700 100720 BMI GENER YES, REGENERATE 

1517 OO4702 113737 OO4742 Oe4els MOVB  YADDS,BUFFER+2 ;LOAD Y COORDINATE 

1518 O04710 113737 OO4744 024617 MOVB  XADDS’BUFFER+3 :LOAD X COORDINATE 

1519 904716 111137 Oe4620 MOVB  (1),BUFFER+4  :LOAD CHARACTER TO BE PRINTED 

1520 004722 162711 900200 BISB 6.1) s INDICA E USE OF CURSOR POSITION 

1521 004726 004737 O104ie JSR PC XPRNT XECUTE AND PRINT CHARACTER 

1522 604732 005337 004750 DEC OVRAL :MAXIMUM NO. OF COORDINATES 

1523 004736 001301 BNE GENER : BR BACK UNTIL DONE 

ge 004740 000207 RTS PC EXIT 

1526 904742 ooD000 YADDS: 0 

1527 004744 O90000 xADDS: 0 

1528 004746 o00000 SET: 9 

1529 004750 900000 q 0 


I OVRAL: 
1530 004752 OS2126 O20065 OSOOSS MSGTXT: .ASCII \VTSO-PLUS-DIRECT-CURSOR-ADDRESSING-TEST 
iS3i OO04760 052514 OG265e3 O44S04 
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005072 


005074 


005142 
005144 


005164 


O0S1&6 
005172 


005174 


005176 


00Se20 


005222 
005226 


005230 
00234 
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042522 
05i125 


190000 


000004 
005037 


016163 
005737 


013555 
012737 


017500 


005737 
001001 


104002 


005037 


017526 


004537 
016174 


005737 
CO150i 


052103 


052126 


011032 
011034 
O11616 


011616 


001332 
001260 
O11616 


000001 
00000} 
011616 


011034 


011036 
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041455 
O26See 
051505 
oS2055 


O44S07 


030065 


011032 


HO3 


i hie 15:32 PAGE 32 
T13 DIRECT CURSOR ADDRESS TEST 

-ASCII \-DIGITAL-EQUIPMEINT-CORP.-MAYNARD-MA. -VTSO. 
MSGTND; 


BITS 
: ONLY 12 LINE TERMINALS WILL RUN THIS TEST 
5 EER RRRRRAE AEA E AEE ARR RE RE EAE E HERRERA REESE LER EAE EERE ERA REEEEE 


‘ STEST 14 HOLD SCREEN TEST 
© REREKRELAELLE SHARES RA HERS SALASAS RA HERELARAALALSLLSSLARALALA FLAS 
+5714: SCOPE 

CLR AXOFF 

CLR XOFFRC :CLEAR SOFT FLAG 

JSR RS, AMSG : DISPLAY 

CRLFB 

SR RS, AMSG :CR-LF 

CRLFB 

TST WFETEST ; TEST IF IN W.F. MODE 

BNE TST1S ::BR IF W.F. MODE 

TST VTSXX itest IF ip’ LINE 

OMI TST1S -BR IF NOT le LINE 

JSR R5, AMSG  ATSPLAY MESSAGE 

M22 

MOV #1, XOFFOK 

MOV 41’ XOFFBR sENABLE XOFF 

JSR RS; AMSG :TRY TO SCROLL THE SCREEN 

GOHDSC :ENABLE HOLD SCREEN 

TST XOFFRC ; TEST IF XOFF SENSED 

BNE 1$ :BR IF SENSED 

ERROR 2 sENABLE HOLD SCREEN MODE FAILED 10 

AMBIT Te THE »SCREEN FROM SCROLLING 
NDING 

1S: CLR XONRC :CLEAR SOFT FLAG 

CLR XOFFER 

MOV 81, AXOFF 

JSR S* AMSG 

GODSHS :DISABLE HOLD SCREEN MODE 

JSR RS, AMSG 

CRLFA ; TRY SCROLLING THE SCREEN 

TST XONRC :TEST SOFT FLAG (X-ON) 

BNE ‘BR IF SENSED 


103 


MRINDEC-11-D2VTC-D MACY11 27/1006) 21-FEB-77 15:32 PAGE 33 
OZV7CD.P11  21-FEB-77 15:27 T14 HOLD SCREEN TEST 
iseg 005236 104002 ERROR 2 ;DISABLE HOLD SCREEN MODE FAILED TO ENABLE 
1588 THE SCREEN TO SCROLL BY SENDING AN “X-ON" 
1531 005240 004737 011436 23: ISR PC, DELAY :PROGRAM DELAY 
Pe P= 
1s92 5 REAR AL ERLE REALE RE EAE RAE RAL ER EL ERLE ER EERE LEAL AREAL EEE ALES 
i594 t STEST 15 M TEST GRAPHICS MODE AND REY. LINE FEED 
1s3s * ee al 2" aerate ake oa taps cabagtabte inten ail ie 
tae Se sue nea 901000 odlz2éc tBris Fore #BITOS,VTSXX =; 
c ’ 
1598 Beescy 5 1002 Bh aga iO? tet Mt GBSPHICS AND REV. LINE FEED 
1599 005256 9000137 005356 IMP COPTST NO- GO CHECK FOR COPIER 
1600 pobebe Ole? 4 900120 GRPHST: MOY #80,8 
i601 6 4537 O11é16 18: JSR Artec :HOME THE CURSOR AND CLEAR THE SCREEN. 
1602 005272 016203 HOMERS 
16803 905274 004537 O11616 JSR RS, AMSG :DISPLAY TEST MESSAGE 
1804 005300 013612 M9221 
1695 005302 O04537 O11616 JSR RS, AMSG ENTER GRAPHICS MODE. 
i606 005306 021255 ENGRAF 
1607 005310 12737 go0o4s 001314 HOV 497, TENPO SET UP Peet apra ops 
HERE BRessS BRISae Blaay3 YeR Be. GE BUE ih06B, AUFFER WI 
1610 005326 904537 O1i616 ISR pi AMSG ISSUE REV. “LINE FEED AND 
161} 095336 021236 REVLF A CARRIAGE RETU 
igle oO 005304 DEC RY : DECREMENT BtEPER ‘count 
1613 005336 005337 001314 3$: DEC TEMPO :09 NE? 
1614 005342 001365 BNE 2 NO-LOOP 
1615 005344 004537 O11616 ISR RS, AMSG t YES-EXIT GRAPHICS MODE 
1616 005350 021262 EXSRAF 
1617 005352 904737 011436 JSR PC, DELAY AND GO CHECK DELAY 
1618 005356 COPTST: 
1619 alla elaelaellal+4-41-- lla htt it t-tia +1 tle 
1620 IMTEST 16 N COPIER - AUTO COPY TEST 
1621 MUTTETTETTTTCTTTCTT TT TTT et Tt tT itt i itt ttt ttt titties 
iége 005356 900004 +éT15: SCOPE 
1623 605360 032737 ocHO000 o01260 BIT #BIT14, VTSXX sTEST IF COPIER IS AVAILABLE 
1624 095266 001002 BNE 2 : IF AVAILABL 
1625 005370 000137 006336 3$: IMP PRNTST tier AVAILABLE SO BYPASS COPIER TESTS 
1626 005374 032777 OO4000 173536 2S: BIT #BIT11,aSWR ; TEST IF INHIBIT COPIER TEST SWITCH IS SET 
1627 005402 001372 BNE F 
1628 O05404 032777 oO02000 173526 BIT #B1T10, ISWR ‘TEST IF PAPER SAVE SWITCH IS SET 
ee GES TR? oouer A Bro he ere 
1631 005420 601363 BNE NB Tt eit RUN te cbpTeR 
1é3¢ 005422 013737 001250 001274 MOV PTCT, PRTCNT + RELOAD ME OUNTER AND TEST COPIER 
1634 005430 004537 011616 6S: JSR RS, AMSG 
1635 005434 013667 M923 :DISPLAY HEADER 
1636 005436 004537 011616 ISR RS, AMSG ENABLE AUTO-COPY 
1637 o05442 017554 GOAPMD 
1623 OOS444 013737 001266 001314 MOY VHO, TEMPO ;LOAD A EXECUTION COUNT 
1640 O054s2 012701 000101 MOV #101,R1 ‘LOAD A CHARACTER 
164i O0S4S6 004737 010316 JSR Pe. FiLBuF :LOAD CHARACTER INTO SUFFER 
1e42 OOS462 012727 OO0000] o11030 1S: MOV #1, XOFFOK 
1642 006470 004727 o104le JSR PC’ XPRNT :DISPLAY IT 


a 


Cah} -O2vI¢ C-p macy 41 27(1006) 21-FEB-77 15:32 PAGE 34 
‘pil EB-77 15:2 TIS N COPIER - AUTO COPY TEST 
005474 004737 011436 JSR PC, DELAY :PROGRAM DELAY 
90 095337 021314 DEC TEMPO sEINISHED ? 
4 i 4 U 1 'BR IF NOT 
606 012727 900001 01:030 MOV #1, XOFFOK 
005514 004537 O11616 JSR RS AMSG :DISABLE AUTO-COPY 
005520 017561 GONAPM 
gesSe2 004737 011436 ISR PC, DELAY sANOTHER DELAY 
5 5 RERAALAAE LAE RELA AL TAAL AERA EL LAA ARAL ERA LRAR EA RAL EARL L ELLA LALA EE 
STEST 17 0 COPIER - FULL SCREEN CF A CHARACTER 
« LEHZSLAREKKAA HALAS HAAR RA AELA HARARE RE RA HALAL AAALAAA FE RHEE ARFRER 
o0sS26 oco004 . M173 SCOPE 
O05530 004527 C1IS16 1$ SR RS, AMSG DISPLAY HEADER 
Bpeese paao43 012556 Teh PC, FILLWC PTL, BUFFER WITH CHAR 
ooss42 012737 o00001 011030 MOV #1, XOFFOK ‘ALLOW MOF 
OSS5SO CO4S37 O1IS16 JSR RS AMSG !COPY INST 
05554 617452 GOPRNT 


OOSSS& 004737 O11436 JSR PC, DELAY 


; EEREREKHERRAE LEHRER LEER ERLE EERE ELLE EERE ELLE ER EAA ER EREA EERE SEES 
{TEST 20 P COPIER - DATA PATH TEST 


s SLESKLAASFERAREKELAELE LE RARAELERAL ALE RELA RERAHRAA ALEK ELAS HAAEKE 
po0ssb2 900004 +é129: SCOPE 
GobpGs 04537 011616 gk RS, AMSG DISPLAY HEADING 
e570 013061 "82 
ee jaca, Griese OO GTR SETE gues 
005604 opdass 33 Sela Bt 
005606 900100 100 !OCTAL *a’ 
005610 004537 011334 ISR RS, DTPSRB :SET- UP BUFFER 
005614 000125 125 ;OCT aL ’ 
005616 o000S2 ce ‘OCTAL tf 
005620 004737 o1o4le 1S: JSR PC, XPRNT DISPLAY THIS LINE 
005624 005337 001312 DEC TEMP :COMPLETED FULL COUNT? 
005630 001373 BNE 1$ BRANCH IF NOT COMPLETED 
005632 012737 oco0001 9011030 MOV #1, XOFFOK 
OO5640 004537 O11616 JSR RS‘ AMSG 
OOSE44 O17452 GOPRNT :COPY INST 
CO5646 004737 011436 JSR PC, DELAY :TEST DELAY SWITCH 
s REAARAAAAAAAAAA AAA AAAS AA LAA KARA RA RA LAARAAA AA RA RASA SAALALALERERLE 
TEST 21 Q COPIER - SINGLE CHARACTER ACROSS ALL COLS. <ALL CHARACTERS? 
s LLESAERLAEAEAAKERSRLA AA RARL RS SALA RAHA RALARRARAELESAHRHSHSRRAEERE 
gos’52 900004 té121: SCOPE 
OG5654 O04537 C1166 JSR RS, AMSG ;DISPLAY HEADING 
005660 013110 M93 
005662 012737 oOD04N 00120 MOV #40, STCHAR :SET-UP STARTING CHARACTER 
Ben Gli ie as, TB) BR? op me ro co 
1$: = 
005702 004737 6010310 ISR PC FILBU ‘GAD A BUFFER WITH TER CHARACTER 
005706 904737 O10412 JSR PC’ XPRNT :DISPLAY A FULL LINE FROM THE SUFFER 
005712 005337 001314 DEC TEMPO : DONE 
005716 OO10i1 BNE 3$ 
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095720 
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005776 
006900 


006004 


006134 


006140 
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013737 


004537 
O01 


004737 


000004 


004737 
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001266 
000001 
011616 


001306 
001310 


011616 


000001 
011616 


011436 


oo O00 oO 
—-00 Of we 


oo oO 
oo0 


000001 
011616 


011436 


011616 
000105 


Biodi2 


27(1006> 
001314 
011030 
001306 


01103C 


001306 
001314 


001306 


011030 


001312 
001312 


KO3 


2i-FEB-77 35:32 PAGE 35 
Tel Q 


COPIER - SINGLE CHARACTER ACROSS ALL COLS. <ALL CHARACTERS: 


MOV VHO, TEMPO 


MOV #1, XOFFOK ;ALLOW XOFF 
JSR RS’ AMSG 
SOPRNT ;COPY_INST 
38: INC STCHAR ;UPDATE THE CHARACTER 
CMP LASTCH,STCHAR TEST FOR FINAL CHARACTER 
BNE 1$ ‘BRANCH. IF NOT COMPLETED 
SR RS, AMSG : CRLF 
CRLFA-2 
MOV #1, XOFF OK sENABLE XOFF 
JSR RS; AMSG COPY INS 
GOPRNT 
ISR PC, DELAY ;TEST DELAY SWITCH 


5 RERAELA EARLE REL AAEA REALL EK AA RAL RA ES RAL ELE LE EAA RARER LRAL EERE LEELEE 


: $TEST 22 R COPIER - ROTATING CHARACTERS ACROSS ALL COLS. 
OS ggg 29" ae aacpraapiaie ots eit ah labia iy th nhs 
ISR RS, AMSG DISPLAY HEADING 
Nov #40, STCHAR ;SET-UP STARTING CHARACTER 
1$: MOV sic char OAD Rl=TO CHARACTER 
JSR ‘LOAD A BUFFER STARTING WIT H 
WIDTH : THAT CHARACTER AN WIDTH BYTE 
JSR ae XPRNT {DISPLAY A FULL LIN M TH BUFFER 
DEC TEMPO :DONE ? 
BNE 3$ 
MOV VHO TEMPO 
MOV 1, KOFF OK 
JSR tae MSG 
GOPRNT :COPY INST 
38: INC STCHAR :UPDATE THE STARTING CHARACTER 
CMP LASTCH,STCHAR TEST FOR FINAL CHARACTER 
BNE 1$ ‘BRANCH IF NOT COMPLETED 
SR RS, AMSG : CRLF 
CRLFA-e2 
OV #1, XOFFOK ;ENABLE XOFF 
JSR RS, AMSG :COPY INST 
GOPRNT 
SR PC, DELAY sTEST DELAY SWITCH 
5 5 RERAERRAREA ARRAS LAE S AREA ALAEARLALELERELLLELARRALELERARELETRAEELE 
4TEST 23 S COPIER - PERIMETER PATTERN 
Ts smal +2 lage select rik einai i stalin 8 toh 8 
JSR RS, AMSG ;DISPLAY HEADER 
MOV #’E, RI ; LOAD STARTING CHARACTER 
JSR PC, FILBUF *FILL THE BUFFER 
ISR *XPR s DISPLAY Q LINE 


PDATE BY 2 
LL FIRST AND LAST 


iL 
;U 

1$: JSR PC, FIRLST ;FI 
XPRNT ;DISPLAY A LINE 


<ALL CHARACTERS» 
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006214 


006256 


006262 


006264 
006270 


006314 


006316 


006336 


006340 


OOE444 
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004737 


000004 


004537 
013521 


005004 


000767 


012737 


000240 


oo0004 


021274 
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001312 
000105 


011616 
011436 


011616 


006612 
011616 


C00001 
011616 


011436 


002000 


006640 
011616 


011616 
000040 
001306 
010344 


0009 


001306 
O1161& 


27( 1006) 


011030 


006310 


011030 


001260 


001306 


011030 


001310 


21-FEB-77 iS:32 PAGE 36 
Te3 S COPIER - PERIMETER PATTERN 


DFC TEMP ;DONE ? 

MOV #’E,R1 ;LOAD STARTING CHAR 

JSR PC, FILBUF ‘LOAD LINE WITH E’S 

Jak Ph ean :DISPLAY A LINE 

R PC’ XPRNT 

MOV #1, XOFFOK 

JSR RS; AMSG 

GOPRNT ;COPY SCREEN 

ISR PC, DELAY 
; ist aa TS COPIER = DISCLAIIER SIATEENT 
: &TE T COPIER - DISCLAIMER STATEMENT 


-eedauboeuenebenebiamsabensszeneebastaaenentaannclssmneeenenenal 


4124: SCOPE 


JSR —sRS, AMSG DISPLAY HEADER 
M921 
CLR RY 
1S: NOV DISPCH(R4), 108 | ;LQAD_A POINTER 
BEQ :BR IF 
JSR ___—- RS, AMSG : DISPLAY COPYRIGHT 
10$:  MTEXTO 
TST (R4)+ ;UPDATE POINTER 
BR 1$ 
2S: ° MOV #1, XOFFOK ENABLE XOFF 
JSR RSS AMSG COPY SCREEN 
GOPRNT 
PC, DELAY 
PRNTST: NOP ;TRY PRINTER TESTS 


ies} 2 PRINTER CONTROLLER MOLE TEST 


ETE U PRINTER CONTROLLER MODE TEST 
ceaseeeaveyaevencaneaneneaneatenennesteneanenseneateceaestaseyy 


+é 
BIT WBITIO,VTSXX = 51 UNIT EQUIPPED WITH PRINTER. 
BNE 1$ tYES-TEST IT 
IMP SEOP :NO-EXIT TEST 
iS: ISR RS, AMSG DISPLAY HEADER 
ISR RS, AMSG sENABLE PRINTER CONTROLLER MOLE. 
MOV #40, STCHAR ;LOAD INITIAL CHAR. 
2s: MOV STCHAR, R1 
SR RS,LIC’ ;BUILD A 132 COL. LINE. 
PNTWID 
MOV #1, XOFFOK ALLOW XOFF/XON PROTOCOL 
JSR PC’ XPRN ‘DISPLAY IT. 
INC ertH AR INCREMENT 1ST CHAR. 
CHP TCHAR, LASTCH :LSsu 92 LINES? 
ISR RS, AMSG :YES-DISABLE PRINTER 
EXPNTM :CONTROLLER MODE. 


« 


MAINDEC-11-D2VTC-D 
OZVTCD.P11 


- 
bee] 
od 


—-OWDONMUIE CE 


— >» bp + pp 
Mmowooanwmoncaca 
TU — b= = 


1822 


006446 


OO&4Se2 
OO64S4 
006460 
006462 
006466 
005474 
006500 


006502 


O06S06 


006510 
006514 
006516 
006S2e2 


006524 
006532 


006536 
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004737 


o0cc04 


004537 
013775 


004737 


012737 * 


004537 
017452 


004737 


000004 
004537 
014032 
004537 
017554 


013737 


000000 


011436 


011616 


012556 
00000} 
011616 


011436 


011616 
011616 


an 


001314 


000001 
011616 


011436 
OO6E40 


001314 


011030 


011030 


21-FEB- vs 15:32 PAGE 37 
Tes 


03 


PRINTER CONTROLLER MODE TEST 


JSR PC, DELAY 


;TEST DELAY SWITCH AND EXIT. 


; Se sma nates | mmc tata te 
: #TE y PRINT SCREEN TEST 
SES SESPAGROGEESOOOOEESESESSORSES SESS OTEEOODNANROREDESEORSONNGS 


tét26: SCOPE 
JSR RS, AMSG 
MPTSCN 

ISR PC, FILLWC 

MOV #1, XOFFOK 

ISR RS’ AMSG 

GOPRNT 


JSR PC, DELAY 


‘ETE 

+8727 
JSR RS, AMSG 
M9230 
JSR RS, AMSG 
GOAPMD 


MOV VHO, TEMPO 


18: MOY #i' XOFFOK 


MOV #1, XOFFOK 
RS, AMSG 


PC, DELAY 


JMP $SEOP 
DISPCH: arete 


-SBTTL END OF PASS ROUTINE 


;DISPLAY PRINT SCREEN MESSAGE 
;FILL THE SCREEN WITH E 
;ALLOW XOFF/XON PROTOCOL 
;PRINT THEM 


; TEST DELAY SWITCH. 


ee rene 
AUTO PRINT TEST 


eageeneenseaseueeancesnennesneansasteanenteanesanesteaneasvense 


;DISPLAY HEADER 
; ENABLE AUTO-PRINT 


; LOAD ° EXECUTION COUNT 
;LOAD A CHARACTER 
:LOAD CHARACTER INTO BUFFER 


PEAY IT 


OT 
;DISABLE AUTO-PRINT 
ANOTHER DELAY 

END OF PASS 
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D2VTCD.P11 21-FEB-77 15:27 END OF PASS ROUTINE 
868 
Ha HHINGRENENT THE PAGE NUMER (gprs) O00 
187 ; SINCREM NT THE PASS NUMBER ( 
1871 INDICATE, EN D- OF ABBon ReteR yo 1 PASSES THRU THE PROGRAM 
i872 TYP YPE ™ oO (HUERE XXXXX IS A DECIMAL NUMBER) 
1873 ‘ : IF GucRes A SHONTTOR GO TO IT 
1874 !#IF THERE ISN’T JUMP TO NOWEOP 
1876 OOD6640 SEOP: 
1877 006640 ooo004 SCOPE ’ 
1878 OObE 42 005737 001244 TST Last | : TEST IF {ORE 
182 BePedR heh 001244 001246 itd Ber, VTNOW ‘1S THIS THE LAST ONE 
1881 006656 OO1410 BEQ 1$ ‘BR IF YES 
1982 006660 062737 000010 Oo1246 R00 #10 VTNOH 
1BBs BRESR BhaTa> BRSRAE : Hoy ASH STEST NEXT ONE 
1885 006700 ae 001100 13: IST Pass TEST If IF FIRST PASS 
8 RAPS RA o20000 AOE BasHED cm F ENB HEADER 
1889 SOI bosya? 001332 0s rr WETEST TEST IF WF. MODE 
fed fas 3 
Ce corey PEE Betar 
189¢ 006726 o00240 3S: NOP 
1 730 7 TSTNM + 32ER ST ER 
iad Boe ean Bpesss | BOTIBE The «= Bact i TRRREMERT the PACE Runge 
1836 06740 o4e7 37 100060 901100 BIC #100000, SPAS i sDON"T ALLOW A NEG. NUMBE 
~ ss 
183g ppp ad 75 atta SECPCT: DF ERD 1 ; 
1899 006752 003022 rae BGT $DOAGN : YES 
1900 006754 012737 MOV (PC)+,a(PC)+  $:RESTORE COUNTER 
1901 006756 000001 SENDCT: .WORD 1 > 
1902 006760 006750 . SEOPCT 
1903 006762 104401 007027 SENDMG ;;TYPE “END PASS #” ' 
1904 006766 013746 001100 MOV $PASS, -(SP) ::SAVE SPASS FOR TYPEOU 
1905 006772 1r0440S TYPDS : ::G0 TYPE--DECIMAL asc! WITH SIGN 
i905 006774 104401 007024 TYPE SENULL :: TYPE A NULL CHARACTER 
1907 007000 613700 oo0042 SGETH2: MOV ded2, RO ::GET MONITOR ADDRES 
1908 007004 o0140S BEQ SDOAGN ::BRANCH IF NO MONITOR 
1909 007006 oo00005 RESET t:CLEAR THE WORLD 
1910 007010 004710 _ $ENDAD: JSR PC, (RO) ::G0 TO MONITOR 
1911 07012 OOo240 NOP :: SAVE ROOM 
1912 (007014 o00240 NOP s3 
1913 007016 o00240 NOP t:ACTLL 
1914 007026 SDOAGN: 
1915 007020 000137 IMP a(PC)+ > ; ; RETURN 
1916 007022 O07044 SRTNAD: .WORD NOWEOP 
1917 907024 377 377 000 $ENULL: :BYTE -1,0 :NULL CHARACTER STRING 
1918 007027 O15 o42412 O42116 SENDNG: .ASCIZ 718) (12> /END pase’ #7 
1919 007034 OSO040 OSISO! 020123 
tay att Miao 001274 NOWEOP: TST PRTCNT 
i922 007050 i0d00e2 BPL_ ss 
1923 007052 105337 001274 DECB = PRTCNT 


Fae 


i « 


os 


BO4 


MAINDEC-11-DZVTC-D MACYLI1 27(1006) 21-FEB-77 15:32 PAGE 39 
OZVTCD.P11  21-FEB-77 15:27 END OF PASS ROUTINE 
1924 007056 912737 o02042 O0e040 118: MoV sTST1 WHERE 
1925 007064 iasce OO1112 MOV SERTTL, -(SP) 
1926 607; TYPDS 
1927 007072 007024 TYPE SENULL 
i928 007076 ate 0020900 IMP SBEGIN 
1929 as 8 renee oi ae oe 
1930 tiTest 30 x KEYBOARD OCTAL VALUE LOOP 
1931 KERALA LAAHRAERALA RELA RELA LAAA LALA ALAA ALE LAA LA REAR AA AAAS REREAESEE 
1932 007102 oD0004 T30: SCOPE 
1933 007104 012706 001100 KRBECO: MOV #STACK, SP 
1934 007110 O04S37 011616 JSR RS, AMSG ;DISPLAY HEADER 
1935 007114 01570e MK 
1936 007116 004737 o12620 1S: JS PC, GETCHR T CHAR 
1937 007122 000775 BR 1$ - $3BR pack’ IF NO INP 
1938 007124 004737 011636 JSR”  PC,OCTAL ; CONVERT AD to OCTAL 
1939 9071 30 113737 011726 016125 MOVE  D1G0, MKEB AD DIGIT 
1940 007136 113737 011730 Ol6126 MOVE DIGI, MKEB+1 LOAD DIGIT 
1941 007144 113737 011732 016127 MOVB DIG2.MKEB+2 LOAD DIGIT 
194 007152 042700 177600 BIC #177600, RO 
194 7156 O0100i BNE tas 
1944 007160 005200 INC RO 
1945 007162 012701 007272 10$: MOV #BFCHR,R1 : LOAD POINTER 
1946 007166 121100 cs: CMPB es (R11), RO TEST If = TO VALUE IN TABLE ? 
1947 007170 001403 BEQ 3$ :BR IF FOUND 
1948 007172 005721 TST (R1)+ :MOVE POINTER 
1949 007174 001374 BNE S$ :BR 
1950 007176 O00407 BR 2g :BR IF NOT IN LIST 
1951 007200 062701 oooo4O 3S: ADD #BF CHAR-BFCHR, R1 ;UPDATE POINTER 
1952 007204 112137 O16120 MOVB  (R1)+,MKEAL LOAD IST CHAR 
1953 007210 112137 016121 MOVB  (R1)+,MKEA1+1 TOAD 2ND 
1954 007214 oO00420 BR 4 
1955 007216 120027 cooo4o 23: CMPB =. RO, #40 ; TEST IF LESS THAN 40 
1956 007222 101010 BHI 6S. ‘BR IF ABOVE 
1957 007224 062700 000100 ADD #100, RO nee PRINTABLE 
1958 007230 110037 016121 MOYB RO. MKEAL+1 HAR 
1959 007234 112737 OOD136 016120 MOVB #8136, MKEAl ‘ADD A ’t’ BEFORE CHARACTER 
19680 007242 0040S BR 4 
1961 007244 112737 OO0D4O 016121 6&3: MOVB #40, MKEAL+1 ; LOAD SPACE 
1962 007252 110037 016120 MOVB RO, MKEAL :LOAD_CHARACTER 
1963 007256 005237 11042 4g: INC IGNORE IGNORE DOUBLE CHARACTER FLAG 
1964 007262 004537 O11616 ISR RS, AMSG :DISPLAY MESSAGE 
1965 007266 015107 MKEA 
1966 007270 o0071e2 BR 1$ ;LOOP BACK 
1968 : TABLE OF DEFINED CHARACTERS 
1970 0907272 000007 BFCHR: 7 BFR CODE 
1971 0607274 GO0010 10 CURSOR LEFT CODE 
1972 007276 OO0C11 11 TAB CODE 
1973 007300 000012 12 :LINE FEED CODE 
1974 007302 oooois 15 :CARRIAGE RETURN CODE 
1975 007304 09002 33 !ESCAPE CODE 
1976 007306 000040 40 :SPACE CODE 
1977 007310 000177 177 :DELETE CODE 
1978 007312 of0000 0 
1979 007214 oo0000 9 


CO4 


C-11-D2VTC- MACYL1 27(1006) 21-FEB- z's 15:32 PAGE 40 
SORE Pil 35-Feg-77 15:27 130 KEYBOARD OCTAL VALUE LOOP 
1980 007316 dv0000 0 
tae 007320 090000 0 
1982 007322 0000 0 
1983 7324 0000 9 
i984 73e6. 000000 0 
ion 007330 9000000 0 
p44 ;DEFINED CHARACTER EQUIL 
2989 007332 046102 BFCHAR: .ASCII /BL/ ;BELL 
1990 007334 046103 -ASCII /CL/ CURSOR LEFT 
1991 007336 052110 -ASCII /HT/ ‘HT 
1992 007340 043114 -ASCII /LF/ :LI NE FEED 
1993 ea 051103 -ASCII /CR/ : CARTAGE RETURN 
1994 7. 051505 -ASCII /ES/ ESC APE 
199S 007346 050123 -ASCII /SP/ ; SPACE 
i996 097350 O4e504 ASCII /DE/ : DELETE 
1997 0073Se o000000 o00000 000000 6, 0,0,0,0,0,0,0,0,0 
1998 007360 o00000 o00000 000000 
1999 007366 o00000 o00000 000000 
2000 007374 g00000 
2001 . EVEN 
gp0 j RERAREAUOEEARERAHEEEHSSESESORELORESOEEOOEELOREHOREL ORES ESET 
0 if 31 Y KEYBOARD CHARACTER TEST 
2004 + RHE RRKLEE LEER EERE SEERA EERE RELA REAR RARER LEER RR EAALAR EEE SALE EE 
2005 007376 oop004 +6731: SCOPE 
2006 007400 032737 OO1000 001260 KRBTST: BIT #BITOS, VTSXx ;I1S UNIT A VTSe? 
2007 007406 001403 BEG m 
2008 007410 012703 O20512 MOV #VSRW, R3 ;YES-SET UP FOR LOWER CASE CHAR. 
2009 07414 o0040e2 BR s . 
2010 007416 012703 020474 1$: MOV #VSORW, R3 ;NO-SET UP FOR UPPER CASE CHAR. 
2011 OO7422 012706 001100 2s: MOV #STACK’ SP 
2012 OO742E 004537 011616 A: JSR RS, AMSG ;DISPLAY HEADER 
2013 007432 014067 MKB 
2014 007434 Q12302 MOV (R3)+,Re ;LOAD ROW # 
201S 007436 032737 001000 001260 BIT #BIT0$, VTSXX : UNIT A VTS2? 
2016 007444 001404 nea i : NO-USE UPPER CASE KEYBOARD. 
2017 007446 O004S37 O11616 JSR , AMSG ‘ISSUE YTS2 ROW! MESSAGE. 
2018 O074S2 014362 MKBB2 
2019 007454 000403 BR es 
2020 ‘ 0074 004537 O11616 1§: JSR RS, AMSG 
20e1 OO7462 O14e4s MKBB ; TOP ROW 
Sass 007464 004737 011734 2s: JSR PC, TSTROW :CHECK THE ROW 
2024 007470 012302 B: MOV 5326 Re ;LOAD ROW # 
20eS 007472 004537 011616 JSR RS,A MSG s;2ND ROW 
2026 007476 O1444sS MKBC 
spe? 067500 004737 011734 JSR PC, TSTROW sCHECK 2@ND ROW 
20e9 007504 012302 C: MOV (R3)+,R2 ;LOAD ROW # 
2030 007506 032737 001000 o01260 BIT #81709, VTSXx : UN NIT A VT52? 
2031 007514 OO1404 BEG 1$ ;NO-USE UPPER CASE KEYBOARD. 
2032 007516 O04S37 O11bl1E JSR RS,AMSG : ISSUE VTS2 ROW 3 MESSAGE. 
2033 007522 014611 MKBD2 | 
2034 007524 O00403 Be es 


2035 007526 OO4S37 CLIELE 1$: JSR RS, AMSG 
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2036 007532 014504 MKBD : 
2037 007534 004737 011734 2$: JSR PC, TSTROW :CHECK ROW 2 
2039 007540 012302 MOV (R3)+,Re :LOAD ROW ® 
e049 007542 O04S37 O11616 JSR RS, AMSG 
2041 007546 014677 MKBE 
eve 007550 904737 011734 ISR PC, TSTROW sCHECK ROW 4 
2044 007554 012702 020676 MOV #ROWS , Re 
2045 007560 004537 O11616 ISR RS, AMSG 
2046 007564 015017 MKBF 
04 007566 004737 011734 JSR PC, TSTROW CHECK ROW S 
2048 - sTEST THE “LEFT"-SHIFT KEY 
2051 007572 O04S37 O1ISI6 D: ISR RS, AMSG ;DEPRESS THE “LEFT-SHIFT” KEY 
2052 007576 015055 MKBG 
2053 007600 012302 MOV (R3)+.R2 ;LOAD ROW 1 SHIFTED TABLE 
2054 007602 03°737 O01000 001260 BIT #B1T09,VTSXX § :UNIT A VTS2? 
2055 007610 001404 BEQ 1$ : NO-USE UPPER CASE KEYSOARD. 
2056 007612 O04S37 O11616 JSR RS, AMSG ISSUE VTS2 ROW] MESSAGE. 
2057 OO07616 014362 MKBB2 
2058 007620 00403 BR 2S 
2059 007622 O04S37 O11b16 13: JSR RS, AMSG TEST ROW 1 
2060 007626 014245 MKBB 
2061 007630 004737 011734 2S: ISR PC, TSTROW :TEST THE ROW 
2062 007634 O04S37 OLIbi6 JSR RS’ AMSG RELEASE THE SHIFT KEY 
e0b3 007640 014123 MKBL 
e065 sTEST THE “RIGHT-SHIFT” KEY 
2067 O07642 004537 011616 E: JSR RS, AMSG SET THE "RIGHT-SHIFT” KEY 
2068 OO7646 O15124 MKBGA 
2069 007650 012302 MOV (R3)+,R2 ; LOAD TABLE_POINTER 
2070 007652 032737 001000 o01260 BIT #BITO9,VTSXX § :UNIT A VTS2? 
2071 007660 001404 BEQ 1$ : NO-USE UPPER CASE KEYBOARD. 
2072 007662 O04537 O11b16 ~ JSR RS, AMSG ISSUE VTS2 ROW! MESSAGE. 
2073 O07666 014362 MKBB2 
2074 007670 OOD403 2g 
2075 007672 O04S37 O11616 1S: JSR RS, AMSG 
2076 007676 O14245 MKBB . 7 
2077 007700 004737 011734 23: JSR PC, TSTROW TEST THE ROW AGAIN WITH THE RIGHT-SHIFT SET 
2078 007704 004537 O11616 ISR RS; AMSG 
2079 007710 914123 MKBI ;RELEASE SKIFT KEY 
e080 :TEST THE CONTROL MODE 
e082 007712 004537 011616 F: JSR RS, AMSG SET CTRL 
2083 007716 015174 MKBH 
2084 007720 012302 MOV (R3)+, Re :LOAD ROM 1 CTRL TABLE 
2085 0907722 032737 001000 001260 BIT #BITOS,VTSXX  :UNIT A VTS2? 
2086 007730 OO1404 BEG 1$ :NO-USE UPPER CASE KEYBOARD. 
2087 007732 OO04S37 O11b16 JSR RS, AMSG TISSUE ViS2 ROW! MESSAGE. 
2088 607736 014362 MKBB2 
2089 007740 900403 2g 
2090 007742 GO4S37 O1l616 1S: JSR RS, AMSG 


2091 007746 O14e4S MKBE 
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2032 007750 004737 011734 2s: JSR PC, TSTROW :TEST THE ROW 
2034 ; TEST THE VTSOH KEYPAD 
2095 007754 032737 O10000 001260 BIT #BIT12,VTSXX |; TEST IF VTSOH EXTRA KEYPAD 
2097 007762 001526 BEQ KRBDON ::BR IF NOT DETECTED 
2098 007764 004537 O11616 JSR RS, AMSG -TELL OPERATOR THE TEST NAME 
2098 007770 O15446 MKBN 
2100 007772 012702 021302 MOV #ROWG , R2 ;LOAD ROW POINTER VALUES 
2101 007776 004537 O11616 JSR RS, AMSG 
2102 010002 015235 MKBI SET TOP ROW KEYPRD 
2103 O10004 004737 011734 ISR PC, TSTROM TEST THAT ROW 
2104 O10010 012702 021322 MOV = wROW, Re ’ 
2105 010014 004537 O11616 JSR RS, AMSG ;2ND ROW KEYPAD TE’ST 
2106 010020 015270 MKBJ 
2107 010022 004737 011734 JSR PC, TSTROW ; TEST 2ND KEYPAD ROW 
2108 010026 012702 021334 MOV #hOw8, R2 
2109 010032 004537 O11616 JSR RS, AMSG 
2110 010036 015323 MKBK 
2111 910040 004737 011734 JSR PC, TSTROW ; TEST 3R0 KEYPAD ROW 
2112 010044 012702 021345 MOV #kOW9, Re \ ae 
2113 O100S0 O04S37 O11616 JSR RS, AISG ;TELL ABOUT 4TH ROW 
2114 O:0054 015357 MKBL 
2115 010056 004737 011734 JSR PC. TSTROW :TEST 4TH ROW 
2116 O10062 012702 021360 MOV #ROWIO, Re 
2117 O10066 004537 O11616 JSR RS, AMSG 
2118 010072 O1s4i2 MKBM 
2119 010074 004737 011734 JSR PS, TSTROW :TEST STH ROW 
2120 010100 032737 OO1000 o01260 BIT #1000, VTSxx !IS UNIT A VTS2? 
el2l O10106 OO454 BEQ KREOON -NO-EXIT 
2122 O10110 OO4S37 O11616 ISR RS, AMSG -YES-TELL OPERATOR ALT. KEYPAD TEST. 
gles O10114 O15? MKBS2 * ' 
124 010116 604537 o11616 ISR RS, AMSG ;PUIT THE UNIY IN ALT. KEYPAD MODE. 
2125 010122 021243 ENAKP . 
2126 010124 012702 021366 MOY #ROWGA, Re :LOAD ROW POINTER VALUES 
2127 010130 O04S37 O1!616 JSR RS, AMSG 
21e8 010134 015235 MKBI ;SET TOP ROW KEYPAD 
2129 010136 004737 011734 JSR PC, TSTROW TEST THAT ROW 
2130 010142 O12702 o214d6 MOV #ROW7A, Re 
2131 O10146 004537 Oleic JSR RS, AMSG :2ND ROW KEYPAD TEST 
2132 0101S2 .015270 MKBJ 
2133 O10154 004737 011734 JSR PC, TSTROW :TEST 2ND KEYPAD ROW 
2134 O10160 012702 021434 MOV #ROWBA, R2 
2135 010164 O04S37 O1l6i6 JSR RS, AMSG 
2136 010170 015323 MKBK 
2137 010172 004737 011734 ISR PC, TSTROW : TEST 3RD KEYPAD ROW 
2138 010176 012702 Oel4be MOV #ROWSA, RE 
2139 010202 004537 OL1b1E JSR RS, AMSG :TELL ABOUT 4TH ROW 
2140 010206 015357 MKBL 
2141 010210 004737 011734 ISR PC, TSTROW :TEST 4TH ROW 
Sie bie Sucte Wile wee 
sti3 B 185 4 015412 MKBM ; 
2145 010226 904737 011734 ISR PC, TSTROW :TEST STH ROW 
2146 010232 004537 Ollele ISR RS; AMSG ‘EXIT ALT. KEYPAD MODE. 
2147 010236 021250 EXAKP 
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T31 Y KEYBOARD CHARACTER TEST 

;COMPLETION OF KEYBOARD-KEYPAD TEST 

KRBDON: ie RS, AMSG ;END OF KEYBOARD TEST 


IMP KRBTST “LOOP 
gs PETTTESETTTTTTESTECTTTOTT TTT TT SCST TTT TET ETE T TELE TC CTT TT TTT Tee 
:&TEST 32 2 KEYBOARD ECHO LOOP 
se HEARRELARAL ALLL RAL LEA LEAL ALAA LAA RELL LE LL LEE ELE ELARELE LALA EE 
+$T32: SCOPE 
KRBECH: MOV #STACK, SP 

JSR R5, AMSG :DISPLAY HEADER 

MKEH 
1$: ISR PC, GETCHR ;GET CHARACTER 

MOVB RO, avTO9 :LOAD THE CHARACTER 
23: TSTB = aos :WAIT FOR DONE 

BPL 2$ 

BR 1$ ;LOOP BACK 


;LOAD A SINGLE CHARACTER ACROSS THE SCREEN WIDTH 


FILBUF: MOV WIDTH, R2 ;LOAD WIDTH VALUE 
FILBFB: MOV #BUFFER. RO :SET-UP BUFFER POINTER 
MOVB #15, (ROS+ :LOAD °CR’ 
MOVB #12, (RO)+ :LOAD 'FL’ 
FILBFA: MOVB 1, (RO)+ “SAVE THE CHARACTER IN THE BUFFER 
DEC Re :FIN ? 
BNE FILBFA “BRANCH IF NOT COMPLETED 
Move 4377, (RO) -LOAD TERM. 


;LOAD A INCREMENTING CHARACTER ACROSS THE SCREEN WIDTH 
;ONLY 40 THRU 177 ARE LEGAL CHARACTERS 


LIC: MOV #BUFFER, RO ;SET-UP BUFFER POINTER 
MOV a(5)+, Re SET-UP WIDTH 
MOVB = #15, (RO)+ :LOAD *CR' 
MOVB #12. (RO)+ :LOAD *LF’ 
LICA: MOVB  R1,tO)+ :SAVE A CHARACTER IN THE BUFFER 
INC :UPDATE THE CHARACTER 
CMP LASTCH,R1 TEST FOR 
BNE LIce !BRANCH IF NOT 
MOV #40,R1 :MAKE A LEGAL CHARACTER 
LICB: DEC Re :DECREMENT COUNT : 
BNE LICA :BRANCH IF NOT COMPLETED 
MOVB #377, (RO) :LOAD TERM 
RTS RS EXIT 
:DISPLAY SUBROUTINE 
XPRNT: MOV #BUFFER, 80 ;SETUP BUFFER POINTER 
XPRNTA: TSTB aVTOS TEST READY 
BMI XPRNTB :BRANCH IF SET 


~, 
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2204 o104e4 005777 170652 TST avTOS - TEST ERROR 

2290S 010430 100372 BPL XPRNTA ‘BRANCH IF RESET 

2206 010432 104001 ERROR !ERROR FLAG SET ON TRANSMITTER STATUS 

2207 O10434 112001 XPRNTB: MOVB to)4, Rl 

2208 010426 100563 BMI 1$ :BR IF MINUS 

2202 O1044O0 122701 000033 cs: CMPB 133, Rl ; TEST FOR ESC 

2216 O10444 001003 BNE 

2211 O10446 005237 011040 INC ANESC ‘SET SOFT FLAG 

2ele O104Se o00402 BR 4 

2213 010454 005037 011040 33: CLR ANESC ;CLEAR SOFT FLAG 

2214 O10460 110177 170620 - 4g: MOVB  R1,aVTOB ‘LOAD CH 

2215 010464 105777 170606 TSTB = aVTIS ‘Test INPUT FLAG 

2216 010470 100352 BPL XPRNTA BR IF CLEARED 

2217 O10472 005737 011040 TST ANESC :TEST IF ESC 

2218 010476 001347 BNE XPRNTA 

2219 O10S00 013737 oO01254 O12672 Ses: MOV TIMEO, TIMEL 

2220 010506 005037 012674 CLR TIME2 ;LOAD DELA 

geek b1051e 105772 170560 2s: TSTB) 3s AVTIS : TEST IF theuT FLAG 
10516 100407 BMI 53$ :BR IF SET 

2223 010520 005337 012674 DEC TIME2 : DELAY 

o55c pt oeee poe 855 012672 BNE TIME1 ; DELAY 

220 pt bese 01367 BNE 2 

2227 010534 00440 BR 60$ :REPORT ERROR 

2228 010536 005737 o11042 538: TST IGNORE ; IGNORE KEYBOARD CHARACTERS ” 

2229 O10542 001104 BNE YES 

2230 O105449 017737 170530 001126 MOV aVTIB, SBDDAT ;READ CHAR 

2231 O105S2 042737 177600 001126 BIC #177600, $BDDAT :MASK 

2232 O10560 022737 O00021 O01126 CMP #XON, SBODAT ‘TEST FOR X ON 

2233 010566 001003 BNE Sos 

2234 010570 905237 011036 INC ;SET FLAG 

2235 010574 000710 BR XPRNTA START AGAIN 

2236 010576 022737 000023 001126 SOS: CMP #XOFF , SBDDAT “TEST FOR X OFF 

2237 010604 o01020 BNE 51$ :BR IF NOT 

2238 010606 005237 011034 INC XOFFRC 

2239 010612 005737 011030 TST XOFFOK ;XOFF ENABLED ? 

2240 O10616 001730 BEQ Seg ars. ee 

2241 010620 012737 000001 011032 MOV #1, AXOFF :SET X OFF SOFT FLAG 

2e4¥2 010626 005737 011026 TST XOFFBR : 

2243 010632 001271 BNE XPRNTA :BR BACK 

2244 010634 000721 BR 52$ :BR 

2245 010636 012737 OOOO00 001124 60S: MOV #0, SGDDAT 

ee4e O10644 000437 BR 13$ 

2247 O1064%6 105777 170266 51s: TSTB =: ASWR ; TEST SWR 

2248 010652 100371 BPL 60$ :BR IF CLEARED 

e439 010654 612737 oo000S7 001124 MOV #’/,$GDDAT :LOAD EXPECTED 

ge50 010662 023737 001124 901126 ci SGDOAT, SEDDAT ; COMPARE ce 

2252 ised Bf 737 000134 001124 MOV #’\, SGDDAT $i BR E bee teD 

2253 910700 023737 001124 OOllee CMP $GDDAT,SBDDAT  ;COMPARE 

gees 910706 OO101E BNE 13% :BR IF NOT 

rg) 

scot -"\" OR LOOP EXIT 

ec 

e258 010710 012737 000001 011024 MOV #1, LOOP :SET SOFT FLAG 

2255 O10718 012727 O17256 01192 MOY #MO0,FINDTA :SETUP MESSAGE 


OOV0O00O000 2000 


Lut 


+08 —- OOO0M 


Ins WT-OWONM 
CINOVOVGOVOVOVOVOOVOOVOOCVON0ND 


rorururerurururrr 
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0724 005037 611026 1t$ CLR XOFFBR 
0730 005037 011030 CLR XOFFOK 
0734 005037 611042 CLR IGNORE 
0740 000137 011952 IMP FINDOT 
0744 005737 011042 138: TST IGNORE - IGNORE INPUT CHARACTER 
9750 901001 BNE bie 
o7S2 104004 ERROR 4 sUNEXPECTED OR INCORRECT INPUT FLAG 
0764 ood24¢ 1S$: NOP 
0756 oo0240 NOP 
0760 o00240 NOP 
0762 o00240 NOP 
0764 900137 Cic4i& IMP XPRNTA 
:/" OR STANDARD EXIT 
0770 0905037 011024 14S: CLR LOOP 
9774 012737 617343 011062 MOV #MQ1,FINDTA :SETUP MESSAGE 
1902 900137 610724 IMP 16$ 
:NORMAL EXIT 
006 095037 911030 18: CLR XOFFOK 
O12 905037 911042 CLR IGNORE 
016 005037 O11026 CLR XOFFBR : 
O22 000207 RTS PC sEXIT 
024 oo0000 LOOP: 0 
O26 oo0090 XOFFBR: O 
030 ooo000 XOFFOK: 0 
032 900000 AXOFF: Q 
034 ooo000 XOFFRC: O 
036 900009 XONRC: 0 ee 
040 00000 ANESC: OQ i . 
O42 of0000 IGNORE: 0 :WHEN SET IGNORE KEYBOARD FLAGS 
-DETERMINE THE TEST 70 Gu TO 
1044 004537 O11616 FNDA: JSR RS, AMSG titel 
1050 174 1 MQ2 :ERROR ASK AGAIN 
1052 612706 001190 FINDOT: MOV #STACK, SP 
1056 004537 O11616 ISR RS, AMSG 
1062 017343 FINDTA: Mal 
1064 004737 012620 JSR PC, GETCHR 
1970 000770 BR F . 
1072 942700 100600 BIC #100600,R0 MASK 
1976 122700 OO0101 CMPB ssw’ A, RO : TEST FOR NUMBER 
1192 101360 BHI FNDA 
1104 122700 000132 CMPB sé, RO :TEST FOR OTHERS 
1110 103755 BLO FND 
ille 042700 177740 BIC #177740, RO ;MAKE 0-32 
1116 005300 DEC 
1120 110037 oo1i02 MOY RO, STSTNM sLOAD THAT TEST # 
1124 0063200 ASL R 
1126 905760 oO11152 TST DSPCH(RO) ;TEST IF VALID _ 
1132 901744 BEG FNOA :BR IF NOT 
1134 d00240 “ONO 
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011136 ooo240 NOP 
011140 016937 611152 001106 MOV DSPCH( RO) ,SLPAOR = _—_s LOAD LOOP ADDRESS 
011146 000170 911152 IMP JOSPCH(RO!' -GO TO THAT TEST 
; SUBTEST DISPATCH TABLE 
611152 o02044 DSPCH: TST1+2 
011158 ope4e4 TSteee 
Bittes Beseeo Tatz 
O1ll62 002660 TSTS+2 
011164 002762 TST6+2 
011166 003424 TST7+2 
11129 o 3774 TST10+ 
1117 4152 TSTI1+ 
11174 904300 TST12+2 
011176 004336 TST13+2 
011200 ooso76 TST14+2 
011202 OS246 TST1S+2 
011204 605360 TSTIE+2 
011206 005530 T5T17+2 
011210 oos564 T5T20+2 
Oilele ooses4 TST21+2 
011214 oOo6006 TST22+2 
11216 006142 TST23+ 
11 5 BO 64 TS TO4+ 
ll 006342 TST2eS+ 
011224 OO64S4 TST2b+2 
011226 O06510 TST27+2 
011230 007104 TST30+2 
O11e32 907400 T5T31+2 
: SUBROUTINE TO LOAD COPIER TEST 
011234 O12790 oe4614 FIRLST: MOV #BUFFER, RO 
011240 112720 oo0015 MOVB #15, (RO}+ :LOAD CR 
011244 112720 900012 MOVE #12" (RO)+ :LOAD LF 
011250 112720 900105 MOVB = #°E. (RO) + 
Ol 1es4 112720 005105 move #°E, (RO) + 
bt 15eG Ais368 nae MOV fbty 2 :LOAD WIDTH 
011270 163702 001270 SUB VH1, Re 
pie? each 090040 1S aa #40, (RO)+ ;LOAD A SPACE 
g . UL 
Bits Abe SB DEC Re | : BON 
011304 100374 BPL 1$ 'BR UNTIL DONE 
011308 112720 ooo10s MOVB  #&°E, (ROJ+ 
611312 112720 oo010s MOVE  #°E. (RO)+ 
011316 112720 900105 MOVB = #’E. (RO) + ;LOAD 80 TH 
011322 112710 000377 MOVB #377, (RO) LOAD TERN 
011326 90020 RTS PC EX IT 
; SUBROUTINE FOR THE DATA PATH TEST 
011330 912700 oc24e14 DTPSR: MOV #BUFFER, RO 
011334 012501 DTPSRB: MOV (5)+,R1 ;GET FIRST CHARACTER 
011336 oleco2 MOV (5)+'Re :GET SECOND CHARACTER 
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2372 011340 013703 001320 MOY WIDTH, R3 “SET THE WIDTH 
2373 011344 006203 ASR. sé sDIVIDE BY 2 
2374 011346 1le720 ooools MOVB 815, (RO)+ ?LOAD ‘CR 
2375 011352 ile72e0 00012 MOVE #12. (RO)+ ‘LOAD ‘LF’ 
e278 01126 119120 DTPSRA: MOV Rl, to) : 
77 611360 11022 MOV Re’ (O)+ 
2378 011362 005303 DEC R3 
2379 011364 100374 BPL DTPSRA 
2380 O11366 112710 000377 MOVB #377, (RO) :LOAD TERM 
2381 011372 o00205 RTS RS 
2383 ; SUBROUTINE TO LOAD BUFFER WITH GRAPHICS CHARACTERS 
2385 011374 012700 O24614 GBBUF: MOV #BUFFER, RO ;LOAD BUFFER ADDRESS 
2386 O11400 012701 000136 MOV #136,R1 ; LOAD INITIAL CHAR. 
2387 011404 O10402 MOV RY, Re “LOAD BUFFER ¢ 
238 ath ii 120 18: MOVE RI; (RO)+ INSERT A cH uy THE BUFFER 
2389 O114i0 605201 INC Ri INCREMENT CHA 
2390 O11412 122701 000177 CMPBs«#177,R1 AT END OF SSAPICS STRING? 
393 011416 001002 BNE ;NO 
392 011420 012701 000136 MOV #136,R1 ‘YES-RESET IT TO IST GRAPH. CHAR. 
2393 011424 695308 2s: DEC Re ;DECRENENT BUFFER COUN 
2394 Oii426 00136 BNE 1g ‘NOT AT END-LOOP 
2395 011430 112710 000377 MOVB #377, (RO) “END OF BUFFER-INSERT TERMINATOR 
2236 011434 000207 RTS PC AND EXIT. 
2238 :PROGRAM DELAY ROUTINE 
2400 011436 013737 001256 O1154¥O DELAY: MOV SUBTST, 10$ :LOAD COUNT 
2401 O11444 005037 011542 CLR 1 
2402 O114S0 905737 001332 TST WFTEST :TEST IF W.F. MODE 
403 011454 O14! BEQ 2 :B T 
404 011456 006237 011540 ASR 10$ !CHANGE DELAY TIMER 
240S O11462 006237 O11540 ASR 10$ 
2406 011466 OO0be37 011540 ASR 10$ 
2407 011472 Oo0e40 NOP 
2408 011474 Oo0240 NOP 
2409 011476 Oo0e40 NOP 
2410 O11500 op0e40 NOP 
2411 011502 oo00e40 NOP 
2412 O11504 032777 O10000 167426 28: BIT #B1T12, ISWR -TEST SR 
2413 O115i2 GOl1006 BNE 3 :BR 4 SET 
2414 011514 005337 o11S4e2 DEC 115 : DELAY 
E415 011520 001371 BNE 2 
2416 011522 005337 011540 DEC 10% 
2417 011526 100366 BPL 2$ : DELAY 
2418 011530 Oooo240 33: NOP 
2419 O11532 op0e40 NOP 
2420 011534 oo0240 NOP 
evel 011536 000207 RTS PC EXIT 
2423 O11540 oo0002 10$: 2 
ees 011542 900000 11g: oO 
2426 O11S44 013737 001256 011612 ADELAY: MOY SUBTST, 10% 
2427 O115S2 005027 C1le14 CLR 118 


KO4 
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O2VTCD.P11 21-FEB-77 15:27 
2428 O11556 006237 011612 ASR 10$ 
2429 011562 006237 Ollble ASR 10$ 
2430 011566 005337 011614 23: DEC 11$ 
2431 011572 001375 BNE 2 
2432 011574 337 Oll612 DEC 10$ 
2433 0116 00372 BPL 25 
2434 O11602 d00240 NOP 
2435 O11604 o00240 NOP 
2436 011606 o00240 NOP 
2437 011610 000207 RTS PC 
2438 O11612 o90000 10$: 
2439 011614 000000 11$ 0 
2440 
2441 
ete :HEADER SUBROUTINE FOR VT-SC 
2444 O11516 012537 011626 AMSG: MOV (RS)+, 19% :GET POINTER 
2445 011622 004537 612676 1$: JSR RS, MTOB :MOVE TO BUFFER 
446 O11626 o00000 10$: oO 
2447 O11630 004737 oO1o41e 11$: JSR PC, XPRNT :DISPLAY IT 
2448 011634 O00205 RTS RS EXIT 
2449 
2450 
evo! sOCTAL - 3 BIT CONVERSION 
2453 011636 010001 OCTAL: MOV RO,R1 :LOAD Rl 
2454 011640 042701 177770 BIC #1?7770,R1 : MASK 
Suee biieco Teaiae ptTe oe nore eb RGe SAVE LSD 
qe9 Btte 4 ytaent MOV RO;R1 ; 
2458 011656 906001 ROR R1 
459 011660 006001 ROR R1 
460 O1156 506061 ROR Rl 
461 O11664 042701 177770 BIC #177770,R1 
2462 011670 062701 O00069 ADD #60,R1 
2463 011674 110137 611730 MOVE R1,OIG1 ;SAVE IT 
2464 011700 010001 MOY RO;R1 
e465 011702 O06101 ROL Ri 
2466 011704 906101 ROL Rl 
2467 011706 000301 SWAB SsCéRRXdL 
2468 011710 042701 177770 BIC #177770,R1 
2469 011714 O62701 O00060 ADD #60,R1 
e470 011720 110137 011726 MOVE  R1,0IGO :SAVE MSD 
gi? 011724 000207 RTS PC EXIT 
2473 011726 ooco00 DIGO: oO 
2474 611730 990000 DIG1: 0 
e475 011732 900000 DIGe: 0 
577 ; SUBROUTINE FOR THE KEYBOARD CHARACTER TEST 
2475 011734 OO4S37 O11616 TSTROW: JSR RS, AMSG :DISPLAY HEADER 
geo 011740 Ol41s6 MKBA 
e482 O11742 O04737 O12b20 1S: ISR PC, GETCHR :GET CHAR 
2483 11746 000775 BR 1$ ::BR BACK IF NO INPUT 


MAI 
DZVTC 


ihe es on | macys! 27(1006) 21-FEB-77 15:32 PAGE 49 


Pil 


te Sat i th Sh sk mt 
LMrsem COMO 


bb 


012737 


177600 
Wisi 


000200 


777 o0000e 


000207 


005037 


000725 


a BoHsr 


004737 


000001 
000200 


018350 


012326 
012322 


012324 
012322 
Ol2e32e 


012324 
Ole32e 


000001 
012324 
000200 
012324 
000200 


012330 
001124 
C1L1E3E 


012326 
167150 


012326 
167132 


167122 
012330 
Ol23ee 


167022 


012330 


012330 


4$: 


;COME HERE ONLY 


cs: 


20s: 


218: 


ror 
wr 


24S: 


#177600, MASK1 


, OSWR 


#BIT7,MASK1 
#BIT1,a3SWR 


4G1TO, OSHR 
117 MASKe 
MBSKe. ibBs 
ASK1:RO 
RO, 100$ 
(R2)+ 
1$ 
PC 


; TEST SWR 
;D0 NOT pear PARITY BIT 
ENABLE PARITY 


Y BIT 
by IF FORCED PARITY 
R_IF NOT FORCED PARITY BIT 
el in Lis OFF PARITY 


ri Be ia EXPECTED 


; COMPARE CHARS 
;BR JF NOT EQUAL 


Pure TILL DONE 
sEXIT 


IF TESTING “PARITY” OPTION 


101$ 

(Re), 1008 
100$ 

els 

101$ 

100$ 

O$ 
#BITO,aSWR 
23$ 

101% 
ees 
#BIT7,MASKe 
4$ 

101$ 
4s 

agit? aS 


;CLEAR TEMP 
;CLEAR CHAR SAVE 
ROTATE CHAR 

:BR IF NO CARRY 
; UPDAT 5 CNT 


'BR F NOT 
TEST EVEN/ODD 

; BR IF OPER. SAYS EVEN 
BR IF ODD ALREADY 
‘SET PARITY BIT 

;BR TO TEST CHAR 

'BR IF EVEN ALREADY 


;BR TO TEST CHAR 


;COME HERE IF EXPECTED NOT EQUAL TO RECVD 
:CONVERT RESULTS TO OCTAL FOR TYPEOUT 


eS: 


108: 


O, » SRODAT 


R 
PC 
D160, MKBQB 
DIGI; MKBQB+1 
D1G2’ MKBQB+2 
#177600, RO 
RO, #40 

10 

#56,RO 

RO. MKBQ2 
(R2),.RO 
maSKe , RO 

RO, $GDDAT 
PC, OCTAL 


;LOAD BAD an 
;CONVERT TO OCTA 
; LOAD OCTAL # 


ioR TE PRIN Par iTree 

: CONVERT 1. : “#" CHARACTER 
;SAVE CHAR 

:GET GOOD CHAR 


;LOAD GOOD CHARACTER 
;CONVERT IT 


MAINDEC-11-DZ2VTC-D 


OZVTCO.P11 
om Tas 
S243 Bi S5e2 
2543 012270 
cee 012274 
Seup 012300 
2547 012306 
ecg 
2549 012310 
es 912314 
2551 012316 
2552 012320 
2553 
2584 012322 
2555 012324 
eSS& 012326 
2557 012330 
258 
2ess9 
2560 
se 
2sé4 
2S65 
2566 
eSt7 
2568 
2569 
2570 
2571 012332 
2572 012332 
2573 012334 
2574 012336 
2575 012340 
2576 Ole3te 
2577 012344 
2578 012350 
2579 012354 
2580 012356 
eS81 012360 
e582 012366 
2583 012370 
2584 012374 
e585 012400 
2586 Ole402 
2587 012406 
e588 012410 
2589 O01241e2 
2590 012414 
2531 O12416 
e532 012420 
2593 Ole4e2 
2594 012424 
2eS395 O0le426 


21-FEB-77 
113737 


110037 


023737 
001403 
004537 


000610 
oo00o9 


000000 


010046 


100407 
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001276 


011616 


020200 


* 900020 


oo00ss 


012546 
000040 


012536 


O6 
07 
10 


o00 
re 
wn 
ialtalea 


001144 


000001 


3$: 


100$: 
1018: 
MASK1: 
MASKe: 


177600 
0 


DIGO,MKBOA 
BIG}, MKBGAY 
G2’ MKBQA+ 
#177600, RO 
RO, MKBal 


VTIS,$TKS 
3$ 


RS, AMSG 


4 
1$ 


;LOAD DIGIT 


;SAVE CHAR 

;TEST IF ON CTY 

;BR IF YES 

;DISPLAY ERROR MESSAGE 


;CHARACTER RECVD NOT EQUAL TO EXPECTED 
;BR BACK AND TEST THE CHARACTER AGAIN 


.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


ee ROUTING Ie UstD 70 CHANGE A ie-BIT BINARY NUMBER 10 AS-DIGIT 

. ie = =| 
aimee eae eee edie be mae Nae ee 
» NUM 

i SBEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
hot eames WITH SPACES. 


: MOV NUM, -(SP) 
3H. TYPDS 
$TYPDS: 

MOV 0,-(SP) 

MOV R1,-(SP) 

MOV Re; -(SP) 

MOV R3,-(5P) 

MOV RS. -(SP) 

MOV #20200, -(SP) 

MOV (SP)? 

BPL 

NEG RS 

MOVB =~, L(SP) 
1$: CLR 

MOV #SDBLK,R3 

MOVB = &’.-—«i (RA) + 
2s: CLR 

MOV $DTBL(RO),R1 
38: SUB R1,R5 

BLT 4g 

INC R2 

BR 3$ 
4S: ADD R1,RS 

TST R2 

BNE o$ 

TSTB ss (SP) 

BMI 75 


;;PUT_THE BINARY NUMBER ON THE STACK 
;;GO TO THE ROUTINE 


T POS. 

$3 BINARY NUMBER POS. 
Hs! i ASCII NUMBER NEG. 
;;SETUP THE OUTPUT POINTER 
;;SET THE FIRST CHARACTER TO A BLANK 
;;CLEAR THE BCD NUMBER 


;;GET THE CONSTANT 
;;FORM re BCD DIGIT 


iHINCREASE THE BCD DIGIT BY ! 


MAINDEC-11-DZVTC-D 
OZVTCO.P11 


012636 


012650 


Ol26Se 
012656 


21-FEB-77 1 


106316 
10 


000004 
012701 

0 
000207 
000000 


013737 
005037 


000207 


005337 
001365 


macy 27( 1006) 
S:e 


000091 
000060 
000040 


000010 


177777 


012546 
000002 


000105 
010310 
001266 
000001 
010412 
012616 


001254 
012674 


166440 
166434 
000002 


012674 


177777 


177776 


000004 


012672 


NO4 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


cs: ASLB = (SP) 
BCC 6$ 
MOVB ——1( SP) ,-1(R3) 
6$: BIS #°0,Re 
7$: BIS #’ |Re 
MOVB Re, (R3)+ 
TST (RO)+ 
CMP RO, #10 
BLT 2$ 
BGT 8$ 
MOV RS, Re 
BR $ 
BS: TSTB ss (SP) + 
BPL 9$ 
MOVB -1(SP), -2(R3) 
9$: CLRB ss (R33) 
MOV (SP)+,R5 
MOV (SP)+;R3 
MOV (SP)+'Re 
MOV (SP)+/RI 
MOV (SP)+_RO 
TYPE $DBLK 
MOV 2(SP) ,4(SP) 
MOV (SP)+; (SP 
RTI 
SOTBL: 10000. 
1000. 
100. 
0 


10. 
$DBLK: .BLKW 4 


si 


HBR I 


3 EMENTIN Ne 

;;CHECK TH ToeLe INDEX 

;;GO DO THE NEXT DIGIT 
0 writs 


1360 CHANGE TO_ASCII 
ORT i x LSD THE FIRST NON-ZERO? 


TTERMINATO 


OW 
i apJUST THE STACK 
;;RETURN TO USER 


; SUBROUTINE TO FILL THE SCREEN WITH AN CHARACTER 


FILLWC: MOV #’E,R1 
JSR Pc. FILBUF 
MOV VHO, 10 

1S: MOV #1, XOFFOK 
ISR PC’ XPRNT 
DEC 10$ 
BNE 1 
RTS PC 

10S: 0 


;LOAD CHARACTER BYTE 
;LOAD Me! LINE WITH CHAR 


t INSURE XOFF/XON CONTROL. 
: DISPLAY THE LINE 


;LOOP UNTIL DONE 
;EXIT 


;SUSROUTINE TO GET A CHARACTER FROM THE VTSO 


GETCHR: MOV TIMED, TIMEL 
CLR TIME2 

13: TSTB = AVTIS 
BPL § 
MOV avrg RO 
ADD (SP) 
RTS 

2s: DEC TIME2 
BNE 1$ 


;LOAD TIME COUNTER 


;TEST_ INPUT STATUS 
BR IF CLEARED 


*READ A CHAR 
: UPDATE RETURN 
;EXIT 


;DELAY 


05 
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DZVTCD.P11  21-FEB-77 15:27 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
T S 
Sees pi5eeg hase Clete Bergh Looe Hee same ExPIRED 
2654 Ole666 104002 ERROR 2 INPUT FLAG FROM DEVICE 
o68 012670 000207 RTS PC Prt 
2657 012672 ooo000 TIMEL: O 
e658 012674 900000 TIMEe: O 
e660 :MOVE TO THE OUTPUT BUFFER 
7 MTOB: MOV (RS)+,RO ;LOAD DEST. 
a piss ce pies 024614 MOV #BUFFER,R1 ‘LOAD RI 
2664 012704 112021 1$: MOVB = (RO)+, (R1)+ “LOAD BYTE 
2665 012706 100376 BPL 1$ :BR UNTIL DONE 
sobe 012710 oo0e0s RTS RS ;EXIT 
gb68 .SBTTL ASCII MESSAGES 
3670 ;ASCII MESSAGES 
2672 012712 OOB41S O46412 OY4YSO1 TITLE: .ASCIZ <15><15><12>\MAINDEC-11-DZVTC-C VTSOA, 8, VTSOH AND YTS2 ACCEPTANCE TEST 
2673 012720 O42116 O41S50S O30455 
2674 012726 O26461 OSS104 052126 
2675 012734 026503 020103 052126 
2676 O12742 030065 926101 O41040 
2677 012750 O20054 OS212e6 O30065 
2678 012756 O20110 047101 O20104 
2679 012764 052126 031065 o40440 
2680 012772 041503 OSO10S o40Se4 
Seae O13008 eeies pense Bed 
2683 013013 015 Oe0012 O43040 M91 -ASCIZ <15><12>/ FULL SCREEN OF THE CHARACTER £/<15><12><377> 
2684 013020 O4612e5 O20114 O4152 
2685 0130¢6 042522 047105 oO47440 
2686 013034 106 044124 Oep105 
2687 013042 O44103 051101 O41501 
See bee Tiare tag 
2690 013061 ols 020012 O42040 M92: -ASCIZ <15><12>/ DATA PATH TEST 7<15><12><377> 
2591 013066 052101 020101 o40Se0 
Seas bisioe becrsy pesos pBoae 
2694 013110 O0S015 O20040 O44S523 M92: ,ASCIZ <15><12>/ SINGLE CHARACTER PER LINE 7<15><12><377> 
2695 O13116 043516 042514 041440 ; 
2696 013124 040510 O40Se2 052103 
2637 013132 051105 oOSO040 051105 
See Sie Goenre facuyy SOtO® 
2700 013158 005015 O20040 o47522 M94: JASCIZ <15><12>/ ROTATING PATTERN 7¢15><12><377> 
e701 013160 o40524 o44524 O435I6 
e702 O13166 OS0040 OS2101 o4eS524 
2703 013174 O47122 O06440 177412 
2704 013202 000 ; Ree ee 
370s 01.3803 O18 020012 O41440 Mb: -ASCIZ <15><12>/ CURSOR MOTION TEST “<15><12><377> 
706 013210 o51125 047523 Cetie 
2707 013216 O47515 O44de4 O47117 


TOE CELL Oe C 3-77 mOCyLs 27( 1006) pekinese oo PAGE S3 


Pll él 15:2 II MESSAG 

ore piace. : Shas 020124 
ats OL 36% Boeoie Be0B40 o40Se4 M97: -ASCIZ <15><12>/ TAB, BACKSPACE AND BELL TEST /«15><12><377) 
711 013244 Oe610e O41040 041501 
e7l2 O132S52 051513 040520 042503 
2713 013260 O4O44O O42116 041040 
2714 013266 046105 020114 O4eSe4 
sie Bes fips) nd Sets 
2717 B13304 005015 O20040 O5110S M910: .ASCIZ <15><12>/ ERASE LINE TEST /<15><12<377> 
2718 O13312 051501 20105 044514 
2719 013320 042516 OS2040 051505 
2720 013326 020124 O0644O0 177412 
e7e Bisszs 000 
272. 13335 015 O2001e O4244O M311: .ASCIZ <15><1l2>7 ERASE SCREEN TEST /<15><12><377> 
2723 O1334e O40S22 O4eSe3 051440 
2724 013350 051103 O4eS505 20116 
sae Glass Bes ies Sone 
e7e7 013370 005015 O20040 O44Se& M912: .ASCIZ <15><12>/ VIDEO COUPLING TEST 7¢15><12><377> 
e728 013376 O42S04 020117 047503 
2729 013404 O501eS 044514 043516 
2730 Oi3s4le OSe040 051505 020124 
e731 ae 005015 000377 

1 

1 

1 

1 

1 

1 


13667 033 O1S537 O1S510 M923:  .ASCIZ ¢33>¢137><33><110><33><112>/ AUTO COPY MODE TEST/<1§><12><377> 
13674 o20112 ocxO44O O52125 


0 
0 
0 
0 
0 
0 
0 
= 
7 4 403 45033 OOSOIS M914: -ASCIZ ¢33>¢110>¢33><112><15><12>7 TERMINAL IDENTIFIER TEST /<15><12><377> 
oa5 Biswas Oachad pueess puESes 
2734 O1344O O47111 O46101 O44440 
e735 O O0S2116 O04 
2736 G134S4 O42511 Oedlee O4eSe4 
et 4 oH 4 OSehs3 006440 177412 
e739 4013471 - 01S O20012 O4144O M920: -ASCIZ <15><12>/ COPIER PERIMETER/’<15><12><377> 
2740 O13476 050117 O42511 O20l122 
2741 O13504 042520 O44S22 042515 
sos Ht sais ies” 006S22 177412 
2744 013521 01S O20012 O42040 MSel: -ASCIZ <15><12>/ DISCLAIMER STATEMENT/’<15><12><377> 
2745 013526 051511 O46103 O44S01 
2746 013534 O4e51S5 Oe0lee 052123 
orig Sree Bika (oats te 
2749 013555 015 O20Gle O44O40 M92e: -ASCIZ <15><12>/” HOLD SCREEN MODE TEST/<15><12><377> 
2750 013562 046117 020104 041523 
2751 013570 O4eS22 047105 O46440 
res Sime Gell Beenie borer 
2754 O136l2 005015 Oe0040 OS1107 MmS221: .ASCIZ <15><12>7 GRAPHICS MODE AND REV. LINE FEED TEST“<15><12><377> 
2755 013620 OS50101 o44S10 051503 
2756 O13626 O4644O O42117 Oe010S 
2757 913634 047101 O20104 O4eS2e 
e758 O13642 027126 O46040 047111 
2759 013650 020105 O4eS0B O42105 
2760 013656 OS2040 OS1SOS o06S24 
2761 yee! 17741e 000 
| 


TC- 1 27(1006) ei-FEB-77 15:32 PAGE S4 
oot Te Stl beg i-FEB- 77 15: 1:37 ASCII MESSAGES 

764 013702 020117 0S4S20 

765 reat O4644O O4e2117 020105 

4 | 013716 pees OSele3 O0S015 

oP Bt 55e 044033 O4S033 051120 MPTCNT: .ASCIZ ¢33><110><33><112>/PRINTER CONTROLLER MODE ENTERED /<15><12)<377) 
2769 013734 O47111 O4eSe4 Oe20lee 

2770 013742 047503 OSell6 O47 
2771 013750 046114 051105 O46440 
e772 013756 O4e117 Oedi0S 047105 
sa Blas Paes eggs Sn 
2775 013775 O33 015510 OS0112 MPTSCN: .ASCIZ ¢33><110><33)<112>/PRINT A SCREEN OF E°S/<15><«12><377> 
2776 014002 O44See OSel16 O4O44O 
2777 014010 O51440 051103 O4e505 
oie ISG Bus Gail bees 

2780 014032 015510 OeO0lle OYO44O M923A: .ASCIZ <110><33><112>/ AUTO PRINT MODE TEST/<15><12><377) 
2781 014040 OSeleS Oe0117 051120 

7 O46 O47111 Oe0le4 047515 

Fe TS Bees) fae Bis 
5785 014067 01S O2001e O42S13 MKB: »MSCII ¢15><12>/ KEYBOARD CHARACTER TEST/<15><12> 
€786 014074 041131 040517 O4elee 
2787 4102 O41 O40S10 O40See 

2788 O14110 052103 0511 
2789 O14116 OS1S505 O06 Ole 


S24 1 
2790 014123 lee 046105 O4OSOS MKB1: .ASCIZ /RELEASE THE “SHIFT” KEY/<15><12><377> 


Se 044123 
2793 Rates 021124 eases oS4S0S 
2795 O14156 O0S5015 042514 O52106 MKBA: .ASCIZ <15><12>/LEFT TO RIGHT IN A ROW, DEPRESS ONE KEY AT A TIME/<15><12><3977> 


sete 14236 dew 006505 17741e 
e805 014245 O15 OSi4le O40Se4 MKBB: .ASCII <15><12>/STARTING WITH THE TOP ROW EXCEPT THE THIRO- 


2807 60 O44S27 O441e4 052040 

e808 O14e66 042510 052040 050117 

2809 74 051040 053517 O4e440 

2810 014302 041530 050105 020124 

iL RLSIE BS tig Os 

2813 014321 O40 051106 046517 -ASCIZ / FROM RIGHT END AND LAST KEYS/<15><12@><377> 
2814 014326 O51040 043511 052110 

2815 014334 O42440 042116 O40440 

e816 O14342 O42116 O46040 051501 

ee ae 

2619 014362 OO5015 Of2123 051101 MKBB2: .ASCIZ <15><12>/STARTING WITH THE TOP ROW EXCEPT THE LAST KEY/<15><12)<377> 


05 
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OZVTCD.P11 21-FEB-77 15:27 ASCII MESSAGES 


0 
144 0 41 Se4 MKBC: .ASCIZ <15><12>/START WITH THE SECOND ROW/<15><12><377> 
esas Oseti1 


: icon lee 053517 005015 
i 
se Bt 204 iste peels? 051101 MKBD: .ASCII <15><12>/START WITH THE THIRD ROW EXCEPT THE CTRL/ 


sea3 014542 o0)08 fate bugis? 
Sea Bideep AT 44 4ell6 -ASCIZ ¢15><12>7 AND THE “BLANK” KEYS/<15><12><377> 


5B Bidert 77ate o515]2 O40S24 MKBD2: .ASCIZ <15><12>/START WITH THE THIRD ROW ,BEGIN ROW WITH “A” KEY/<15><12><377> 


2853 11 
2854 014670 O42513 006531 177412 


2856 014677 its 051412 O40S24 MKBE: .ASCII <15><12>/START WITH THE FOURTH ROW EXCEPT THE SCROLL 
sae. 014704 OS2lee OS3440 052111 


2862 eee 044124 020105 041523 


2863 SO 047522 046114 
e864 014754 005015 051454 O44510 JASCIZ <15><12>7,SHIFT, REPEAT AND AUTO-PRINT“<15><12><377> 
e865 014762 052106 020054 OY4eSee 


000 
051412 O40S24 MKBF: .ASCIZ <15><12>/START WITH THE FIFTH ROW/<15><1l2><377> 


e870 015017 

e871 015024 OS OS3440 OS2111 
e872 015032 Oe0110 O44124 020105 
2873 O15040 O44506 052106 020110 
2874 O1SO046 O47Se2 006527 177412 
2875 O1S0S4 000 


MRINDEC-11-DZVTC-D MACY11 27(1006) 21-FEB-77 15:32 PAGE S6 


2914 5400 e064 920110 O47See 
2915 S406 006527 1774le ah sk les 
2916 S4i2 005015 OS21e3 OS110! MKBM: ASCII <15<12>/START WITH THE LAST ROW/<15><le><377> 
2917 20 O2e01e% O44Se7 044124 
saig S4¥2e6 052040 042510 046040 


S434 paleo} 020124 O47S2e 
S446 005015 053012 032524 MKEN: .ASCII <15><i2><12>/VTSOH KEYPAD TEST/<15><12><377> 


15 on 
475 1S OS3012 032524 MKBS2: .ASCII <15><12>/VTS2 ALTERNATE KEYPAD MODE TEST“<15*<12-<g7?> 


S32 O4eSe4 OSele3 COSd15. 


OZVTCO.P11 21-FEB-77 15:27 ASCII MESSAGES 
cere 015055 01S oO47012 OS3S17 MKBG: .ASCII <15><12>/NOW HOLD DOWN THE “LEFT-SHIFT” KEY/<15><127<377) 
28 015062 O44040 046117 020104 
aa tee Boe Bile far 
2889 015104 Bes OS14SS 044510 
2881 stthes ppekoe atk 042513 ; 
883 Biei54 005015 047516 020127 MKBGA: .ASCII <15><12>/NOW HOLD DOWN THE “RIGHT-SHIFT” KEY/<15)«127<377> 
684 015132 047510 O4el14 42040 
015140 17 O20116 o44ic4 
ooee sats peolts pe ee pizeld 
ee tie fea Gx Oo 
2890 015174 O0S01S 047516 020127 MKBH: .ASCII <15><12>/NOK HOLD DOWN THE “CTRL” KEY/<15><12)<377> 
2891 015202 047510 O4e2114 O42040 
2892 015210 053517 Oe01l6 OY 
2893 015216 QO2010S O4144e 051124 
ae tee gui oy See 
2896 015235 015 051412 O40S24 MKBI: .ASCII <15><12>/START WITH THE TOP ROW/<15><12><377> 
2897 O1Se42 OSelee OS3440 052111 
2898 0i5eS0 020110 O4412e4 020105 
ae en oe jee 
2901 015270 OOSOIS 052123 051101 MKBJ: ASCII <15><12>/START WITH THE ND ROW/<15>< 12>. 377> 
2902 015276 Oe0leY O44Se7 O441e4 
23903 015304 042510 031040 
oe Ginle mae Sigg Ser 
23906 015323 015 OS51412 O40S24 MKBK: .ASCII <15><12>/START WITH THE 3RD ROW/<15>< 12> <377> 
e307 0153 OS2lee O20040 044527 
2908 0153 044124 052040 O4eS10 
2909 015344 O31440 OY4el2e 051040 
2910 015352 053517 O0S015 3 a 
2911 015357 O15 051412 O4OS24 MKBL: .ASCII <15><12>“START WITH THE 4TH ROW/<15><12><377> 
2eS3le 015364 OSe2iee OS344O0 OSe111 
2913 Blasts eae te 044124 020105 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
O15 
0 
0 
0 
0 
0 


~, 


MRINDEC-11-D2VTC-D MACY11 €7(1006) 21-FEB-77 15:32 PAGE S7 

OZ2VTCO.P11 21-FEB-77 15:27 ASCII MESSAGES 
2932 015541 O15 O41432 O4OSIO MKBG: .ASCII <15><12)>/CHARACTER WAS IN ERROR/:1S>< 12> 
2933 015546 O40See O05e103 9051105 
2934 015554 OS3440 051501 O44440 
Se fieess Biss te se 
c 
Saxe tea o2ndes 047517 020104 -ASCII /GO00D = / 
2939 015602 O40 040 O75 MKBQ1: .BYTE 40,40,75,40 
e940 015605 O4C 
2941 015606 040 040 O4C MKBOA: .BYTE 40,40,40,40,40 
e342 015611 040 040 " : 
2943 015613 102 042101 036440 -ASCIT /BAD = / 
2944 015620 040 
es4S 015621 040 04C O7S MKBG2: .BYTE 40,40,75,40 
2346 015624 040 
2947 015625 040 040 O40 MKBOB: .BYTE 40,4C0,40,15,12,377,9 
a ne 
e950 015634 OO0S01S 042513 O41131 MKBR: .ASCIZ <15><12>/KEYBOARD CHGRACTER TEST COMPLETE “<i5><12><377) 
e951 O1564e O40S17 O4el2e 041449 
2e9S5e 015650 O40S10 O40See 052103 
2953 O1S656 OS2040 051505 
2954 015664 Oe0le4% 047503 050115 
e9sS 015672 O4eS14 042524 O05015 
coe 015700 000377 
2958 pt 3706 OOSO1S o4S44O OS4S0S MKE: »ASCII <15><i2>/ KEYBOARD ASCII AND OCTAL LOOP/<15><12> 
e959 015710 O47502 051101 020104 
2960 015716 051501 O44503 020111 
2961 015724 047101 020104 041517 
2362 015732 O40Se4 020114 047514 
si iene Sty ite ere is 

' S,lé Sa v ma? 

2965 ft 746 4127 047 Ne O4O44 -ASCII /WHEN A KEY IS DEPRESSED, THE ASCII CHARACTER ANC/ 
29 15754 S440 OS4S505 04444 
2967 0157 020123 42504 051120 
e968 015770 051505 O4eSe3 026104 
2969 015776 OS2040 042510 O4044O 
2970 0160 O41S23 O44S11 941440 
e971 O1601e 040510 O40Se2 052103 
He Hie Bliss HOS BENG ae ie 
2974 016030 052040 042510 OS2040 “ASCIZ =” THE THREE DIGIT OCTAL CODE WILL SE ECHOED. 
2975 016036 051110 O4eS0S O42040 
2976 O16044 043511 052111 047440 
e977 016052 052103 046101 O41440 
e978 016060 O4ei17 020105 044527 
e979 O16066 O46114 O41040 020105 
e980 016074 O41505 047510 O4e105 
e981 016102 000 fi 
e982 916102 01s Ole 377 -BYTE  15,12,377,0 
2983 016108 900 : , 
2984 016107 CiS 041412 O405!10 MKEA: .ASCIZT ¢15><12>-CHAR = / 
e985 OC16:14 O20lee 020075 
e986 016120 O40 O40 OYWO MKEA1: .BYTE 40,40,40,75,49 
2987 016123 075 040 


HOS 


MAINDEC=11-D2VTC-D MACYI1 27(1006) 21-FEB-77 15:32 PAGE SE 
OZVTCD.P1l © 21-FEB-77 15:27 ASCII MESSAGES 

2988 016125 040 O40 O40 MKEB: BYTE 40,40,40,15,12,377.0 

2982 016130 015 012 377 

2390 016133 —_000 : : 

299, 16134 O0S01S O42613 41131 MKEH: — .ASCIZ <15)< 12) “KEYBOARD ECHO LOOP/< 18) <12) 

2992 O16142 O40517 O4el22 OyeN4O 

2993 O16150 044103 O20117 O47S14 

2994 016156 OS0117 905015 O00 a ok 

2995 Oi6i63 O15 O12 O12 CRLFB: .BYTE 15,12,12,12,12,12,12,12,12 

299 Olb1bE O12 O12 Ole 

2997 016171 le Ole Olle 

2998 016174 Die Ole O12 CRLFA: .BYTE 12,12,12,12,12,377.0 

2999 016177 Ole O12 377 

3000 016202 000 

3001 ;HOME AND ERASE SCREEN OPCODE 

3002 016203 033 110  ##$033 HOMERS: .BYTE  33,110,33,112,377,0 

3003 016208 112 377 _ 900 schists - 

3004 01621 O15 052012 O4OD4O PATH: ASCII “15><12>/T adaasaaaaIIaaSIaTTaaITIIITIIIIIIISIaaa/ 

3095 O16216 o40100 940100 O¥di00 

3006 16224 040100 040100 o40100 

3007 016232 040100 040100 040100 

3008 O16240 O40i00 O40100 0490100 

3009 16246 040100 040100 


040100 
2010 Oibes4 wea 040:00 040100 
20i2@ 016263 100 040100 040100 ASCII /dddddddddddddddddddsaddddddddddddsdads 1’ 


& 
6326 0 24 
Pass 15 OSe0le ouzuig -ASCII <15><le>/T ERRREEREEREREEPEPEPESEPEPEPEPEPEPEPPES - 


es 
6376 O4eS0S O4e505 042505 
3927 016405 10S O4eS0S O42S0S ASCII] /EEEEREESPERRREEREEEPEPEPEPEPEPEPEPPESS 7- 


4 O1e4 BYTE. 377,0 
303s BIEWES oosbiS ou2eed oselS vrson, Boch: 7155219, -testine vison (12 LINES-No-COPTER)- 
3036 O16466 O47111 020107 d5ele6 

2037 016474 030065 020101 030450 

2038 Ol6S02 O20062 044514 O4eSiE 

3039 016510 026523 047516 041440 

3040 O16516 OSO117 O42511 O24sz2 

3041 O16504 01 BYTE 15,12, 12,377,0,0 

3042 016627 377 O00 O00 at | 
3043 C16532 OOSO1S O42524 OS2123 VTSOR: .ASCII <15><12>/TESTING VTSOB (12 LINES-COPIER:- 


IO05 


4p -D2vT MACYLI 27(1008) 21-FEB-77 15:32 PAGE $¢ 
MEINE CEH OeV ee Pep-rr fesaee aber eccacte 
2044 D1GSYO O47111 O20107 oS2126 
3045 016546 030065 020102 030450 
3046 016554 O20062 O44S14 C4216 
By Hy big Pag Bee 
SH gare wuesear 0 
S021 O1ee0: B15 OS2D12 OSISOS VTSS: ASCII <15)<12@>/TESTING VTSS (24 LINES-COPIER, VTSO BASED) / 
eH ot Be ie 
seg Bibbls pgeeey oasis paeeie 
3085 016630 Oe6523 o47503 o44S20 
3056 016636 051105 O200S4 OS2ic6 
3057 O1GE44 O30065 O41040 051501 
ses Cleese eSB BYTE 18,12,12,377,0,0 
3061 DIEEE3 O15 OS2012 OSISOS VTSOH: ASCII <1S><12>/TESTING VTSOH (12 LINES-COPIER-D.C.A.) 
3062 016670 O44S2e4 049516 053040 
3063 01 o3204 O44060 24040 
3064 016704 031051 O46040 O47111 
3065 Ole712 051505 O4145S O50! 
3066 016720 042511 O26522 027104 
3067 Ole726 027103 O27101 


3068 916733 01S Ole B12 -BYTE 15,12,12,377,0,0 
353 BLESa 8 osoble 051980 VTS2k: .ASCII <15><12>/TESTING YTS2 ‘24 LINES-NO COPIER OR PRINTER’ 


2076 017004 051117 OS0040 O44See 

3077 O1701le OSeil6 051105 id 
Sa Br Oe bs O Bran cae ened 
3080 017024 005015 O425e4 952123 vTSeL: .ASCII <15><12>/TESTING ¥TS2 (24 LINES,COPIER-NO PRINTER? - 
3081 017032 O47111 020107 OSele6 

3082 017040 031065 Oe4040 O3e0be 

3083 017046 O46040 047111 051505 

3084 O:7054 O41454 050117 O42511 

3085 017062 OebSe2e 047516 O50040 

3086 017070 O44See 052116 051105 

3087 017076 2 
Bh Bit eee Bao rege neers 
3090 01710 Ose012 051505 vTSeM: ASCII (15><12>/TESTING VTS2 (24 LINES,PRINTER-NO COPIER) 
3091 O1711e O44Se4 043516 053040 

3092 017120 O325e4 Oe006e 031050 

3093 017126 020064 O44514 O4eS16 

3094 0171 Oeble3 O511e0 047111 

3095 O17142 O4eSe4 OebSee O475S16 

3096 017150 O41440 050117 O4eS11 

3097 017:56 O2e4S2e “ 
3098 017160 Q15 Ole Ole BYTE 15,12,12,377,0,0 
3039 017163 377 000 006 


MR 
OZV 


SBIRREE 


0 bb bb = bo ee 4 
fWwre--OwoOon 


WWW WW WWII) LUI 00) Go WI Lt 
b= bp 


— b-pae 


WI) WWI GIGI) 3 WI 000) (I GI IW WI LI) WI I) GG 
= £ WWW) WI) 


WWW) 
> b= b—+ b= & = bp bb be bp pe 
LOUNCNUN ONO A 
Omrumcwry 


WWW WWIWGWUIW 
NEw OwOonN 


-DZVTC-D 


21-FEB-77 
174 
Oe 


cath 
3e46e 
O 046040 


SARE Se: 
Riss 


“NN 
Bo 
w 


MACY11 27(1006) 
15:27 


047503 


177440 
051124 


042524 
020107 
051040 


O44S23 
051505 
042516 
377 
O15 

Ole Ole 
000 

005 


21-FEB-77 
ASCII MESSAGES 
VTSSE: .ASCII 
.BYTE 
RFI: -BYTE 
MGO: -ASCIZ 
MQ1: ~ASCIZ 
M@e: -ASCIZ 
GOPRNT: .BYTE 
GOHDSC: .ASCIZ 
GODSHS: .ASCIZ 
GOAPMD: .BYTE 
GONAPM: .BYTE 


15:32 PAGE &C 


(15><12>/TESTING VTSS (24 LINES, COPIER, YTS2 BASED) ~ 


15, 12, 12,377,0,0 
33, 132,377,0,0 
(33> < 134) <33><137><15><12><i2>/LOOP ON TEST PATTERN LETTER ‘(A THRU Z) ? 


€33> ¢134> <33><¢137><15><12><12>/START AT TEST PATTERN LETTER (A THRU 2} ? 


¢15><12><12>/TRY AGAIN 7¢15><12><377> 


33,135, 12, 12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0377,0,0 


€33>¢133><15><12>/TESTING SILO REG/<377> 
€33><194><15><12>/SILO TEST DONE/<15>< 12><377> 


33, 136,377,0,0 ‘ 
33, 137,15, 12,12, 12,0,0;0,0,0,0,0,0,0,0,0,0,377,0,0,0,9 


“ 


MAINDEC-11-D2VTC- MACY11 27(1006) 2i1-FEB-77 15:32 PAGE 6&1 
BOv ICE PL 3i-Pee-77 ie:2? ASCII MESSAGES 


3156 017575 000 000 000 
3157 017600 000 000 000 


tw 
— 
ey 
oO 
-_ 
o 
ore 
WwW 
x 
oO 
oO 
oO 
oO 
oO 
oOo 


M98: ~ASCIZ §=¢33>¢110><33><112>7 DIRECT CURSOR ADDRESSING TEST/<377> 


row 
-Ow 
00 

_— 
oo 

~~ 

2 

OMe 
—-O00 
rd88 

2 

wi 
00 
WO 

B 

8 

£ 

o 


7 
17640 pusese 051523 047111 
017646 al O4eS2e4 052123 : 
005015 043012 051111 WHATO: .ASCIZ <15><12><12>/FIRST LINE DEVICE ADDRESS ? = /<200> 


be pe ph he pe pe he ee 


000 
005012 et WHAT1: .ASCIZ <¢15><12><12>/LAST LINE DEVICE ADDRESS (CR IF NONE) ? = 7<200> 


020077 
005015 O20040 O20040 PASHED: .ASCIZ <15><12>/ PASS # # OF ERRORS / 


CUAL eoO OBO orl Loser copeD Wen Eero 


pSoces 105 OS1122 OS1117 EM: -ASCIZ /ERROR FLAG SET ON TRANSMITTER STATUS~ 


O40Se4 052524 


O201le O47516 OY4Y44O O50116 EMe: -ASCIZ “NO INPUT FLAG DETECTED/ 
O20le0 OSe1e5 043040 040514 
asotse 020107 O4eS04 042524 


0 000 
020141 111 041516 051117 EM3: -ASCIZ /INCORRECT I1.D. CODE” 
0201 5 O44440 
ache ashi Ps 042056 eae i 047503 
3293 Bsuiss 125 picese 050130 EM4: -ASCIZ /UNEXPECTED OR INCORRECT INPUT CHAR/ 


WJ) GI GI GIGI GI) GI GI) G9 GI GIG) GI OI GIGI OI) WI) GI WI GIG) Gd GIGI IW) G) GIGI WG) I IOI) GG Ga 
DONNA LW ODS 
A 
-_ 
<= 
- 
Oo 


Te 0 be he he pe pee 


Oo 
oO 
# 
? 
ig?) 
oO 
uw 
fT 
— 
oO 
WwW 


320 sayy 047111 O40S26 O44S14 EMS: -ASCIZ /INVALID BUSS ADDRESS, TRY AGAIN’ 
Seil 020244 O4O44HO 042104 O4eS2e 


MAINDEC-11-DZVTC-D 
OZVTCO.PL1 


O20466 


020474 


020652 


21-FEB-77 


000132 


MACY11 
15:27 


020054 
043501 


051040 


001246 
001246 


001126 


020564 
021052 


020736 
021106 


000061 


000130 


27( 1006) 
051124 
044501 
020103 


042122 
020103 


041505 


0012Se 


001330 
000000 
001252 
000000 


020622 
02105e 


020774 
021106 


000062 


100015 
000103 


05 


21-FEB-77 15:32 PAGE 62 
ASCII MESSAGES 


DH1: 


DH3: 


DH4: 


OTl: 
DT3: 
DT4: 


-ASCIZ /ERRPC VTNOW TSTNUM/ 


-ASCIZ /ERRPC YTNOW 1ST WO 2@ND WO 3RD WO/ 


-ASCIZ /ERRPC VYTNOW TSTNUM EXPCT RECY/ 


. EVEN 

SERRPC, VTNOW, TSTNUM,O 

SERRPC, VTNOW, SAVE4, SAVE2 , SAVES, 0 
SERRPC, VTNOW, TSTNUM, SGDDAT , SBDDAT , 0 


.SBTTL KEYBOARD CHARACTER CODE TABLES 


; THE ACTUAL KEYBOARD LAYOUT IS REQUIRED 


VSORW: 


VS2RW: 


ROW1: 


ROW: 


ROW3: 


ROW: 


ROW, ROW2, ROW3, ROWY, ROWLS,ROW1S,ROWLC 


ROW12, ROW22 , ROW32, ROWE, ROWL2S ,ROWL2S, ROWL2C 


WORD 33,61,62,63,64,65,66,67,70,71,60,55,75, iS001C 


WORD 11,121,127, 105,122,124, 131,125,111,117, 120, 133, 134, 12, 199177 


f 
-WORD 101, 123, 104, 106, 107, 119, 112, 113, 114, 73,47, 100015 


-WORD 132,130,103, 126, 102,115, 115,54,.56, 100057 


MSIN 
DZVT 


“4 


C-11-0 VI 
“ell . Si Pea-77 


fororororurororuroro 


hb pb be ps pp 
i OOO 


REVERRLeow 


furoru 


OND0O0O000 


021236 
Oel241 


000126 
000115 


180040 


100057 


000033 
3 


36 
000050 
000053 


000033 


000035 


033 
377 


MACYLI 
15:2 


000102 
oocos4 


000170 
000142 
oog0s4 


000041 


000176 


000021 


000020 
000000 


111 
000 


27( 1006) 
000116 
000056 


000062 


i) 
000173 
000143 


000156 
000056 
000100 
000137 
000100 
100010 


oo0022 
000015 
oo0022 
100010 


015 


05 


1-FEB-77 15:32 PAGE 63 
K YBORRO CHARACTER CODE TABLES P 
ROWS: .WORD 100040 

;V¥TSe KEYBOARD EQUIVALENCES(LOWER CASE CHAR. } 

ROWl2: .WORD 33,61,62,63,64,65,66,67,70,71,60,55, 75,140, 190010 
ROW22: .WORD 11,161,167,14S, 162,164,171, 165,151,157, 160, 133, 134, 12, 109177 
ROW32: .WORD 141,163,144, 146,147,150, 152, 153, 154, 73,47,173, 100015 
ROW42: .WORD 172, 170, 143, 166, 142, 156, 155,54, 56, 100057 


;SHIFTED ROW CODES 


ROWS: 


ROWL2S: 


- WORD 


- WORD 


33,41, 100,43, 44,45, 136,46,52,50,51, 137,53, 100510 


33,41, 100,43, 44,48, 136,46,52,50,51,137,53,17&, 100016 


;CONTRCL ROW CODES 


ROWIC: 


ROWL2C: 


REVLF: 


. WORD 


. WORD 


;VTS2 
.BYTE 


33,21,22,23,24,25,26,27,30,31,20,15,35, 100010 


33,21,22,23,24,25,26,27,30,31,20,15,35,0, 100010 


ESCAPE SEQUENCES 
33,111,0:5,377,0 


sREVERSE LINE FEED. 


6 
021604 
Oelble 


040440 


046040 


27( 1006) 


377 
377 


000 
000 


377 
377 


000033 
000122 


000071 
000066 
000063 
100015 
000633 
000122 
000167 
000170 
000171 
000164 
000165 
000166 
000161 
000i62 
000163 


000160 


KEYBORRO CHAAR 


CHARA 
ENAKP: .BYTE 
EXAKP: .BYTE 
ENGRAF: .BYTE 
EXGRAF: .BYTE 
ENPNTM: .BYTE 
EXPNTM: .BYTE 


iFEp ESSE Fdaves 


;ENABLE ALTERNATE KEYPAD MODE. 
;EXIT ALTERNATE KEYPAD MODE 


33,075, 377,0,0 
33,076,377,0,0 


;ENTER GRAPHICS MODE. 
;EXIT GRAPHICS MODE. 


33, 106,0,377,0 
33, 107,0,377,0 


33, 127,377,0,0 ;ENABLE PRINTER CONTROLLER MODE. 


33, 130,377,0,0 


;¥TSO-H KEYPAD CODES 


ROWE: 


ROW?: 
ROWS: 
ROWS: 
ROWGA: 


ROW7A: 


ROWBA: 


ROWSA: 


ROWLOAR: 


MTEXTO: 


- EVEN 
. WORD 


. WORD 
. WORD 
. WORD 
“ORD 


- WORD 
WORD 
. WORD 


. WORD 


-ASCIZ 


33,'P,33,’Q,33,’°R,33, 100101 


67,70,71.33, 100102 
64,65,66,33, 100103 
61,62,63, 33, 100104 
BO B49. 0 33, °R, 33, 100101 


33,'?,167,33,’?,170,33,’?, 171,33, 10010e . 
A 
33; °%,164,33,'?,165,33,’?, 166,33, 100103 
: 
£33,'?,161,33,'?, 162,33,*?, 163,33, 100104 


33,°?,160,33,°?, 156,33,’?, 100115 


(15><12><12>/THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR 


;DISABLE PRINTER CONTROLLER MODE. 


MAINDEC-11-DZVTC-D 
OZVTCO.P11 


SIS oR SPOUSE REOS 


RRERERRRERRRRSERSES 
FORE 


b= b= bb b= bb = br = 0 be he hae 


? 


0ee30& 


047503 
042515 


MACY11 27( 1006) 
21-FEB-77 15:27 


042523 
O0S2440 


0Sellé 


041040 


BO6 


21-FEB-77 15:32 PAGE 65 
KEYBOARD CHARACTER CODE TABLES 


MTEXTIL: 


MTEXTe: 


MTEXT3: 


MTEXT4: 


MTEXTS: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


€15><12>/0N A SINGLE COMPUTER SYSTEM AND CON BSE COPIED (WITH INCLUSISN/< 


€15><12>/0F DEC’S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT” 


€15><12>/AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. 7<377> 


¢15><12><12>/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHO 


€15><12>/NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 8Y DIGITAL/< 


“ 


C-11-02VTC 1 27(1006) 21-FEB-77 15:32 PAGE 6& 
Stich Pll 3i-Fee-77 ‘is 15: 3 Key BOARD CHARACTER CODE TABLES 


ae 022314 fad gh ena on 
a3e Geese Bie e4le os2ee) MTEXT6: .ASCIZ <15/<12>/EQUIPMENT CORPORATION. 7<377> 


1 022350 2 S24 047117 
3442 022356 177456 000 
3443 022361 015 l2 O42S04 MTEXT7: .ASCIZ <15><12><12>/DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
3444 022366 020103 OS1S501 OS52523 . 
3445 022374 042515 020123 047516 
O22e402 OS51040 OSiSOS 047520 
344 241 1516 Oat 6111 
2416 111 020131 
3449 022424 O20122 O44124 Oe0i0s 
3450 O22432 051525 020105 051117 
3451 O22440 OS1040 O46105 040511 
3452 O2e446 oO44502 044514 OS54524 
022454 047440 177506 oo0 
3454 022461 015 O44412 051524 MTEXTS: .ASCII <15><12>/ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC./ 
3455 O2e466 051440 043117 053524 
022474 051101 020105 047117 
3457 Oees02 O42440 052521 OS011 
022510 O42515 052116 053440 
3459 022516 O44510 O44103 O44440 
022524 Oe0ie3 047516 020124 
3461 O2e532 052523 oOs0120 44514 
3462 022540 O42105 O410 013! 
3463 022546 O42504 027103 
3464 Oeesse 015 012 377 .BYTE 15,12,377,0 
3465 22555 000 
3466 EVEN 
Eat .SBTTL TTY INPUT ROUTINE 
3469 ; » RELELKRLKE LEA EA ASS AA RES EA ARAL SHA AKL KRA LE SRALA KLARA AAA REARS RLSKEEKER 
3470 "ENABL LSB 
347] 
3472 .OSABL LSB 
ue 
3475 5 RRREKARRE REAR ERA A RA AAA EARL AAA AAA EEA AK LALA AE ARAL REAR ARERARERE 
3476 jATHIS: ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
:*CALL: 
478 x RDCHP ;; INPUT A SINGLE CHARACTER FROM THE TTY 
3479 1% RETURN HERE : CHARACTER IS ON THE STACK 
34280 3 ::WITH PARITY BIT STRIPPED OFF 
ne . 
3483 O22556 O11646 SRDCHR: MOV (SP), -(SP) ; PUSH DOWN THE PC 
2484 022560 O16666 o90004 ooDcre MOV 4(SP},2(SP) ioe El HE PS 
3485 022566 105777 iS63S2 1$: TSTB = AS TKS :WAIT FOR 
3486 022572 100375 BPL 1$ 3A CHARACTER 
3487 022574 117766 156346 OO0004 MOYB § a$TKB,4(SP) i tREAD T HE TTY 
3488 Oe2602 042766 177600 o00004 BIC #tC<177> 4(SP) ::GET RID OF JUNK IF ANY 
2489 022610 O26627 O00004 o00023 CMP (SP), #23 ::IS IT A CONTROL-S? 
3490 O22616 001013 BNE 3$ ;;BRANCH IF NO 


3493 OCe2e620 105777 156320 es: TSTB aSTKS ; ;WATT FOR A CHARACTER 


DO6 


Mal Sol1-D2viC~ e-0 MACY11 27(1006) 21-FEB-77 15: 32 PAGE 67 
D2vTCO.P 11 €B-77 15:27 TTY INPUT ROUTINE 
4 100375 BPL ;;LOOP UNTIL_ITS THERE 
335 pgsps? 117746 156314 MOVB Sixg -(SP) !!GET CHARACTER 
3494 22632 042716 177600 BIC #40177, (SP) ::MAKE IT 7-BIT ASCII 
Oe e627 000021 SMP (SP)+, bel ::IS IT A CONTROL-Q? 
496 D264 1366 BNE 2g :: IF NOT DISCARD IT 
3497 022644 000750 BR 1$ :: YES, RESUME 
3498 022646 O26627 OO0004 O00140 3s: CMP 4(SP), #140 315 ae UPPER CASE? 
3499 022654 002407 BLT 4 ; ;BRANCH IF_YES 
3500 Oee6S6 Oe6627 O00004 000175 CMP 4(SP), #175 :IS IT A SPECIAL CHAR? 
3501 Oeeb64 003003 BGT 4§ ; BRANCH F YES 
3502 Oeebb6 042766 o00040 cD0004 BIC #40, 4(SP) ;;MAKE IT UPPER CASE 
3503 See674 oodode 4S: RTI °GO BACK TO USER 
3504 FU BHEAH HEEB HEHE HEHHHEHEHHHEE A HHHHEH HEHE HHH HHHEEBHHHEE 
3508 :ATHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
3507 # RDLIN ss INPUT A STRING FROM THE TTY 
3508 # RETURN HERE !:ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
3599 x TERMINATOR WILL BE A BYTE OF ALL O'S 
3511 O22676 O10346 SRDLIN: MOV -(SP) ; SAVE R3 
3512 Oe2700 012703 023004 1$: MOV prieaait R3 ::GET ADDRESS 
3513 0e2704 022703 o23014 2g: CMP #STTYINSS. RB is BUFFER FULL? 
3514 022710 101405 BLOS  4§ 
3515 Oee7l2 104406 ROCHR $388 fab ONE CHARACTER FROM THE TTY 
3516 022714 112613 MOVE  (SP)+, (R3) ::GET CHAR 
3517 022716 122713 000177 108: CMPB —s-«&#177, {R3) ::IS IT A RUBOUT 
3518 Oe2722 001003 - BNE 3$ 35 SKIP IF NOT 
3519 022724 104401 O01166 4g: . TYPE SQUES TYPE A *?? 
3520 022730 000763 BR 1$ ::CLEAR THE BUFFER AND LOOP 
3521 O22732 111337 023002 38: MOVE  (R3),95 >:ECHO THE CHARACTER 
35202 Oee736 104401 Oe3002 _ TYPE 
2523 022742 122723 OO00015 CMPB =—s«a15, (R3)+ :;CHECK FOR RETURN 
3524 Oee746 001356 BNE 2 ::LOOP IF NOT RETURN 
3525 022750 105063 177777 CLRB) ss - 1 (R3) CLEAR RETURN (THE 15) 
3526 022754 104401 001170 TYPE, ;; TYPE @ LINE FEED 
3527 022760 012603 MOV (SP)+,R3 RESTORE R3 
35208 O227b2 O11646 MOV (SP) ,-(SP) ; §ADJUST THE STACK AND PUT ADDRESS OF THE 
3529 022764 O16666 o00004 coDDD2 MOV 4(SP} 2(SP) He FIRST ASCII CHARACTER ON IT 
3530 022772 012766 922004 900004 MOY aSTTYIN, 4(SP) 
3531 023000 o00002 RTI :RETU 
3532 023002 000 9$: -BYTE OO STORAGE FOR ASCII CHAR. TO TYPE 
3633 023003 000 ‘BYTE 0 : TERMIN 
3534 023004 000010 $TTYIN: .BLKB_ 8. ; RESERVE e BYTES FOR TTY INPUT 
3535 023014 052536 ooso1s 000 S$CNTLU: .ASCIZ /tu/<15><12> : CONTROL 


3536 023021 136 006507 O00012 SCNTLG: .ASCIZ /tG/<15><1l2> SSCONTROL “gr 
3537 Oe302e6 005015 053523 Oe0lee SMSWR: .ASCIZ <15><1l2>/SWR = 


900 
35339 023037 O4O O47040 OS3505 SMNEW: .ASCIZ / NEW = / 
3540 023044 036440 000040 


seus .SBTTL READ AN OCTAL NUMBER FROM THE TTY 

3543 etter teeter ttt tt tet ttt ttt ttt ttt titititititititirt 
2544 {THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
oS4s : #CHAN GE IT TO BINARY. 

SE4E :% THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 


3547 :*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ”?” WILL SE TYPED 


Mal 
D2vT 


elt 2i-Fes-77 


O1ll646 


001041 


macyst 27( 1006) 


ocooo4 o0000e 


023176 


o0c060 
000067 


001166 


155724 
011024 


READ AN 


-77_ 15:32 
OCTAL AGMBER F 


"Shon THE TTY 


nee Mrved. We ber TE Tei BY TYPING A CARRIAGE RETURN. 


. -*RpOCT HERE 

$RDOCT: MOV (SP). -(SP) 
MOV 4(SP} (SP) 
MOV RO, -(5P) 
MOV R1,-(SP) 
MOV Re, -(SP) 

18: ROLIN 
MOV (SP)+,RO 
MOV 0,5$ 
CLR 1 
CLR RE 

2s: MOVE (RO)+,-(SP) 
BEQ 3$ 
CMPBSséd#’0,, (SP) 
BGT 4 
CMPB ~—s«wg'*7, (SP) 
BLT 4g 
ASL Rl 
ROL. Re 
ASL R1 
ROL R 
ASL R 
ROL RE 
BIC atc? (5) 
ADD SP)4,R 
BR 

3s: TST .SP)+ 
MOV R1,12(SP) 
MOV Re’ SHIOCT 
MOV (SP)+, Re 
MOV (SP}+,R1 
MOV (§P)+;RC 
RTI 

4$: TST (SP)+ 
CLRB (RO) 
TYPE 

cs: .WORD O 
TYPE gues 
3R ! 

SHIOCT: .WORD O 

MSCOPE: TSTB a@SWR 
BPL $SCOPE 
TST LOOP 
BNE SOVER 


-SBTTL SCOPE HANDLER ROUTINE 


AD AN OCTAL NUMBER 
LOW ORDER BITS ARE ON TOP OF THE STACK 
HIGH ORDER BITS ARE IN SHIOCT 


UM SPACE FOR THE 


it THIS CHARACTER 
;IF ZERO GET OU 

tt MAKE SURE THIS CHARACTER 

;;I1S AN OCTAL DIGIT 

3; #2 

53 #4 

;; #8 


;;STRIP THE ASCII JUNK 
aia THIS DIGIT 


CLEAN TERMINATOR FROM STACK 
;;SAVE THE RESULT 


:POP STACK INTO Re 
t :POP STACK INTO R1 
3 3 BOP Vase INTO RO 


Lea PART IAL FROM STACK 
:: TYPE UP THRU THE BAD CHAR. 
ii tpy oe R” & Lid LF” 
: TRY SRN 

* HIGH ORDER BITS GO HERE 
‘feat BIT 

;NOT SET 
: TEST LOOP 
:SET LOOP ON TEST 


; RERERRE RE EEE EERE GEER ARE REE EE RELL AR EE RALE EE RARAE ERE REL EER ALERE 
ATHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER($TSTNM) INTO THE DISPLAY REG. <DISPLAY<7:9) ? 


Oe3224 
Qesee4 
023232 


023342 


Ce341é 


032777 
001035 


ocoode 


0Ci0c4 


Nee 27( 1006) 


040000 


oo0004 
ooo004 


900400 
1SS632 


001106 


020000 


1S5706 


090004 
155640 
901102 


1SS606 


001252 


1SSSSE 


001116 
001114 
issSee 


FOG 


sfbrE Hanover ABUTINE 


;#AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
;*#THE SWITCH APTOS PROVIDED BY THIS ROUTINE ARE: 


:#SWI4=1 ON TEST 
: *5W08=1 LOOP ON TEST IN SWR<7:2> 
; #CALL 
7% SCOPE ;;SCOPE=I0T 
$SCOPE: 
18: BIT #B1T14,aSWR ;;LOOP ON PRESENT TEST? 
BNE OVER -Y W14=1 
-weeeaSTART OF CODE FOR THE XOR tisTEReenes 
$xTSTR: BR 6$ 3;1F RUNNING ON THE "XOR” TESTER CHANGE 
:: THIS INSTRUCTION TO A “NOP” (NOP=249) 
MOV RR C,-(SP) 55 AVE, E THE rout OF THE ERROR VECTOR 
MOV a8, #ERRVEC 33 ET 
TST ae 5060 T ON XOR? 
MOV ep) JRERRVEC igh THE ERROR VECTOR 
gR $SVLA 336 HE NEXT TEST 
S$: CMP (SP)+, (SP)+ “CLEAR THE STACK BF TER B TIME 9 
MOV (SP) +; JRERRVEC RES one THE RROR V ECTOR 
BR OVER’ P ON THE PRESENT TEST 
63: ;#ee¥END OF CODE FOR THE XOR eee Rvaeed 
grr 4g TO8, aSWR ; ;LOOP ON N SPEC. TEST? 
CMPB Os SW, STSTNM He THE RIGHT TEST?  SWR<7:0> 
BEQ SOVER IF YES 
$SVLAD: INCB $TSTNM ::COUNT TEST NUMBERS 
MOV (SP), $LPADR : SAVE SCOPE LOOP. ADDRESS 
CLRB $s THE ERROR FLAG 
SOVER: MOV STSTNM, @QISPLAY !:DISPLAY TEST NUMBER 
MOV $LPADR; (SP) :FUDGE RETURN ADDRESS 
RTI ::FIXES PS 


.SBTTL ERROR HANDLER ROUTINE 


5 SEER AEE SEE EEE AAEM EAE HEHE HEHE EEE EE EEE A EERE AERA ARREARS RARER ES 
{ATHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;*SAVE THE ER roe ITEM NUMBER AND THE ACORESS OF THE ERROR CALL 
:#AND GO TO SERRTYP ON 
:*THE SWITCH sath PROVIDED BY THIS ROUTINE ARE: 


; #SHIS=1 T ON ERROR 
i BML 3=1 HNHIBS ERROR TYPEOUTS 
1% ERROR N . :ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 
MOVB  $TSTNM, TSTNUM 
75: INCB  $ERFLG ;;SET THE ERROR FLAG 
BEG 75 DON’T LET THE FLAG GO TO ZERO 
MOV $TSTNM, JDISPLAY : :DISPLAY TEST NUHBER AND OERRGR FLAG 
INC SERTTL INC THE ERROR COUN 


MOV (SP), SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 


#2, SERRPC 
MOV8 § aSERRPC,SITEMB ;;STRIP_AND SAVE THE ERROR ITEM CODE 
BIT #BITi3, aSWR ;:SKIP TYPEOUT IF SET 

BNE 208 ::SKIP TYPEOUTS 


GO6 


MBINDEC-“11-DZVTC-D MACYLI 27(1006) 21-FEB-77 15:32 PAGE 76 

O2VTCE.P11 21-FEB-77 15:27 ERROR HANDLER ROUTINE 
3660 023420 004737 9023454 JSR PC. SERRTYP :;G0 TO USER ERROR ROUTINE 
3661 Oe34e4 194401 001167 TYPE  ,SCRLF 
3662 023430 20: 
3663 023430 005777 iSSSO4 2s: TST aSWR :;HALT ON ERRO 
3664 923434 100001 BPL 35 ::SKIP IF ERR TNUE 
3665 023436 000000 HALT ::HALT ON ERROR! 
3666 02344 38: 
3667 ree 022737 09097019 oooo4e CMP #SENDAD,a842 ;;ACT-11 AUTO-ACCEPT” 
3668 Oea446 001901 BNE 6$ ::BRANCH IF NO 
3669 d234S0 oc0000 HAL T : YES 
3670 923452 6S: 
71 623452 90000 RTI : ;RETURN 
caer .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
3675 + LEXEKSRAL ESSE ERLE RE REE RELA LS RAE RESALE AAA AL LARA LALALARELALELAEER 
3576 'RTHIS ROUTINE USES THE “ITEM CONTROL BYTE" (SITENB) TO DETERMINE WHICH 
3677 :#ERROR IS TO SE REPORTED. IT THEN OBTA FROM THE “ERROR TELE” (SERRTB), 
378 :#AND REPORTS THE APPROPRIATE HE ROBT ION SA ONCERNINE THE ERROR 
3680 023454 SERRTYP: 
3681 O23454 104401 O011&7 TYPE SCRLF :;"CARRIAGE RETURN” 8 “LINE FEED” 
3682 023460 O1CO4E MOV RO, -(SP) :: SAVE 
3683 Oes46e OOSOO0 CLR RO ::PICKUP THE ITEM INDEX 
3684 023464 153700 001114 BIS8 $$ aeSITEMB,RO 
3685 023470 001004 BNE 1$ :31F ITEM NUMBER Ig ZERO, JUST 
3686 ‘TYPE THE PC OF THE ERROR 
3687 023472 013746 OD1116 MOV SERRPC,-(SP) tISAVE SERRPC FOR TYPEOUT 
2688 :FERROR ADDRESS 
3689 023476 104402 TYPOS :G0 TYPE--OCTAL ASCII(ALL DIGITS 
3690 623500 O004e6 SR &$ ::GET OUT 
3691 Oe3502 005300 13: DEC RO i ADJUST THE INDEX SC THAT IT WILL 
363 023504 906300 ASL RO - WORK FOR THE ERROR TASLE 

83 023506 006300 ast RO 

3694 0235!0 006300 ASL RG 
3695 O023S5i2 062700 001172 ADD #SERRTB, RO ; FORM TABLE POINTER 
36968 023516 012037 023526 MOV (RO}+,2¢ PICKUP “ERROR MESSAGE” POINTER 
3697 Oesse2 OOi404 BEQ 3 i SKIP TYPEOUT IF NO POINTER 
3698 022524 104401 TYPE ;;TYPE THE “ERROR MESSAGE” 
3699 023526 Od00000 2s: .WORD 0 !!"ERROR MESSAGE” POINTER GOES HERE 
3700 022530 104401 001167 TYPE $CRLF "CARRIAGE RETURN” & “LINE FEED" 
3701 023534 p23” 023544 33: MOY {RO)+,4$ i 3BICK KUP soaTA HEADER" POINTER 
37 23540 001404 BEG +} SKIP YPEOU 1 IF 0 
3703 Oe2S42 104401 TYPE YPE THE “DAT HEADER” 
3704 023544 Oo0c00 4g: .WORD 0 tianer A HEADER” * POINTER GOES HERE 
3705 023546 104401 001167 TYPE $CRLF ::"CARRIAGE RETURN” & “LINE FEED” 
3706 23552 011000 S$: MOY (RO), RO ::PICKUP “DATA TABLE” POINTER 
3707 923554 001004 BNE 7§ ::GO TYPE THE DAT 
3708 023556 012600 $$: MOY (SP)+. RO ::RESTORE R 
3709 923560 104401 001167 TYPE SCRLF :s PCARRIAGE RETURN” 3 “LINE FEED” 
3710 022564 000207 RTS PC : RETURN 
3711 Oesste 73: 
3712 O23566 013046 MOY 3(RO)+,-<SP) :;SAVE 3(RO)+ FOR TYPEOUT 
3713 023570 10440¢ TYPOC ::G0 TYPE--OCTAL ascricalt DIGITS) 
27:4 022672 O05715 TST (RO) -:1S THERE ANOTHER NUMBER? 
3715 C2374 901776 BEG 6 ::BR IF NO 


HOE 


MEINOECS 1 1-D2vTC-0 MACY11 27(1006) 21-FEB-77 15:32 PAGE 7 
S2v7E5.P1 21-FEB-77 15:27 ERROR MESSAGE TYPEOUT SOUT INE 
716 O23576 104401 23604 TYPE 8S :; TYPE TwO(2) SPACES 
312 pesboe DOUr71 BR, 7S 360 
5718 523604 630040 09¢ g$: ascIz + / :TWO(2) SPACES 
3733 923610 “EVEN 
Fi —— 
372: .SBTTL TYPE ROUTINE 
a553 SROUTING 10 TYPE Aecl? MEGCHGE NEGCAGE MUST TERMINATE WITH AO. ; 
3734 :EROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
i735 :# THe ROUTINE Ibe INSERT A ER OF NULL aa at arTER. A LINE FEED. 
73E NTAIN HE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
3727 NOTES: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
3728 : ENOTES: SFILLC CONTAINS THE SUOBECTER TO FILL AFTER. 
3730 *CALL: 
3731 ja) USING @ TRAP INSTRUCTION 
3732 TYPE § ,MESADR :;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
3733 :40R 
3734 :# YPE 
3735 1% MESHOR 
se . 
¢ 
3738 023610 195737 901157 $TYPE: TSTB  § $TPFLG ::1S THERE @ TERMINAL? 
3739 023614 100002 3PL 1$ : F 
3740 Ge3bié O00000 HALT :tHALT HERE IF NO TERMINAL 
3741 023620 900407 BR 3$ : LEAVE 
3742 Oesb22 O1004%6 18: MOV RO, -(SP) VE RO 
3743 OesbeY 017600 oponce MOV detSP},RO GET ADDRESS OF ASCIZ STRING _ 
3744 023630 112046 23: MOVB (RO) +,-( SP) ;;PUSH CHARACTER TO BE TYPED ONTO STACK 
3745 023632 001005 BNE 4§ :BR IF IT ISN'T THE TERMINATOR 
3746 923634 905726 TST (SP)+ ire TERMINATOR POP IT OFF THE STACK 
3747 023636 O12600 = 603: MOV (SP)+.RO T 
3748 O2364C 062716 oD0002 3$: ADD #2, (SP) :: ADJUST RETURN PC 
3749 023644 000002 RTI 33R N 
3750 023646 122716 00001! 4$: CMPS ss #HT, (SP) ::BRANCH IF <HT> 
3751 Oe36Se 001430 BEG 
3752 023654 122716 o00200 CMPB =saCRLF, (SP) ;;BRANCH IF NOT <CRLF> 
3753 Oe3660 O0100¢ BNE 
3754 Oesbbe 005726 TST (SP)+ :;POP  <CR><LF> EQuIY 
3755 023664 104401 TYPE :: TYPE A CR AND L 
3756 Oezb66 001167 $CRLF 
3757 023670 105037 924024 CLRB § SCHARCNT ;;CLEAR CHARACTER COUNT 
275@ 023674 000755 BR 2s :GET NEXT CHARACTER 
3759 022676 904737 023760 S$: JSR $TYPEC : $66 TYPE THIS CHARACTER __ 
3760 Oe3702 123726 OO0115¢ og: CMPB SFioLe (SP)+  i:IS IT TIME FOR FILLER CHARS.” 
3761 023706 001350 BNE ::IF NO GO GET NEXT CHAR. 
3762 0623710 013746 o01154 MOV $NULL , -(SP) ::GET # OF FILLER CHARS. NEEDED 
3763 :;AND THE NULL CHAR. 
2764 023714 105366 90000: 73: DECB ~=s_-1{ SP) :;DOES A NULL NEED 70 BE TYPED? 
3765 023720 002770 BLT 6$ :BR IF No--GO POP THE NULL OFF OF STACK 
3766 De2722 004737 023760 JSR PC, $TYPEC G0 TYPE A NULL 
3767 023726 105337 S24024 DECB  SCHARCNT -:DO NOT COUNT AS A COUNT 
758 023732 000770 BR 7$ :: LOOP 


3770 ;HORIZONTAL TAB PROCESSOR 


06 
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MBE EH 35Pep-77 Nerds TYPE ES TINE 
3772 923734 112716 ooco40 gs: nove ys (SP) : REPLACE 788 WITH SPACE 
‘ ‘ H ‘ v ; : 
577% Bese49 09353 B5aa8o 024024 Bite 40 hia ae : BRANCH iF ser AT 
3775 023752 001372 BNE 9S :: TAB STOP 
3778 023754 905726 TST (SP )+ ::POP SPACE OFF STACK 
3777 O23 000724 BR 23 !:GET NEXT CHARACTER 
3778 023760 105777 155164 TYPEC: TSTB  a$TPS !:WAIT UNTIL PRINTER IS READY 
77 237 4 1002 BPL STYPEC 
7 766 116677 900002 155156 MOVB (SP), a$TPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
3781 023774 keeres p090:5 oo0002 CMPB =s-sBCR, 2 SP) j315 CHARACTER A CARRIAGE RETURN? 
3585 4896 G23 024024 BNEg $8 aRcNT i BRANCH EAR CHARACTER COUNT 
sree peyote et ooouiz oocece 18 ope Sr BSP) if CHARACTER A LINE FEED? 
iz : C 8 ( se 
278t n34) aya BEG Hee tt ABokcH 14 YES 
3787 dexd22 195227 INCB = (PC) + ::COUNT THE CHARACTER 
3788 024024 oc0dd0 $CHARCNT: WORD 0 : CHARACTER COUNT STORAGE 
2783 024026 900207 STYPEX: RTS PC 
¢ 
379] 
a73e .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
37394 g 5 RRR RERER REE R EERE E ERR LA ERR RE EERE EERE EERE RAE EE LEAR EERE ERE 
3795 : STHIS ROUTING IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A &-DIGIT 
3796 #OCTAL (ASCII) NUMBER AND TYPE IT. 
3737 s #STYPOS---ENTER HERE TD SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
;* : 
3739 # MOV NUM, -(SP) ;;NUMBER TO_BE TYPED 
3800 t# TYPOS ::CALL FOR TYPEOUT 
3801 :# .BYTE N ::N=1 TO & FOR NUMBER OF DIGITS TO TYPE 
50 * # ‘BYTE M ::M=1 OR O 
3 # ;;1=TYPE LEADING ZEROS 
3 4 ii ::O=SUPPRESS LEADING ZEROS 
3806 ?¥$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
3807 :4$TYPOS OR $TYPOC 
3808 :¥CALL: 
3809  % MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
3810 1 TYPON ::CALL FOR TYPEOUT 
.% 
3812 :¥$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
3813 :*CALL: 
3814 1 MOV NUM, -(SP) :;NUMBER TO BE TYPED 
E15 1% TYPOC ::CALL FOR TYPEOUT 
3817 024030 017646 OO0000 $TYPOS: MOV a(SP),-(SP) ;;PICKUP THE MODE 
2818 G24034 116637 OO0001 924253 MOVB 1(SP).SOFILL  ;:LOAD ZERO FILL SWITCH 
32819 Oe4042 112637 de4ess MOVB (SP)+'SOMODE+1 :;NUMBER OF DIGITS TO TYPE 
3820 Ce4046 062716 o00002 ADD #2, (SP) ::ADJUST RETURN ADDRESS 
3821 O240S2 000406 GR STYPON 
3822 024054 112737 OO0001 Oe4e53 S$TYPOC: MOVB #1,SOFILL :;SET THE ZERO FILL SWITCH 
3823 024062 112737 OO0006 Gex25s MOY #6; SOMODE+1 ::SET FOR SIXi6) DIGITS 
3824 024070 11273% O00005 24252 S$TYPON: MOVB # #5,SOCNT ::SET THE ITERATION COUNT 
3825 24976 O10346 MOV R3,-(SP) ::SAVE R3 
3626 Oe4100 21 MOY Ra’ -(SP) t:SAVE RY 


O1LO44E ; 
3827 UctiOe OQ1OSHE MOV RS,-(SP) 7; SAVE RS 


JO6 


MBINDEC-11-DZvVTC-D MACY11 27(1006) 21-FEB-77 15:32 PAGE 73 
OZVTCO.P11 21-FEB-77 15:27 BINARY TO OCTAL (ASCII) AND TYPE 
3828 024104 113704 oe4ess MOVB  $OMODE+1,84 :;GET THE NUMBER OF CIGITS TO TYPE 
oH ate Oee704 0006 AbD me RY RY BIRA T IT FOR MAX. ALLOWED 
3830 peaite vette ponoee MOVB = R4’ SOMODE iSive FoR fee 
3822 024122 113704 Oe4253 MOVE  $0FILL.RY y THE ZERO FILL SWITCH 
3833 024126 016605 o00012 MOV 12(SP),RS + BT CKUP THE INPUT NUMBER 
3834 024132 005003 CLR R3 ::CLEAR THE OUTPUT WORD 
3835 024134 006105 1$: ROL RS ;;ROTATE NSB INTO “C* 
3836 024136 oO0404 BR 3$ :GO0 DO MSB 
3837 024140 O06105 2s: ROL RS FORM THIS DIGIT 
3838 Oe414e 006105 ROL RS 
3839 024144 006105 ROL RS 
3840 024146 010503 MOV RS,R3 
84 4] 06103 38: ROL R3 ;;GET LSB OF THIS DIGIT 
84 4] l 024254 DECB SOMODE 3; TYPE THIS DIGIT? 
Sead Qeule0 Q4e7ag 177770 BIS §477770,R9 GEL RIQLOF JUNK 
i 4s 4164 nated N i i162 T Ie 0 
3846 Oe4166 005704 TST ; } SUPPRESS THIS 0? 
3847 024170 001403 E ee $3 FY YES i 
3848 024172 005204 4$: N 4 ::DON’T SUPPRESS ANYMORE O°S 
3849 024174 052703 oocoED BIS #°0,R3 j SNAKE THIS DIGIT 
3850 O24200 052703 o00040 cs: BIS #’ (R23 *:MAKE ASCII IF NOT ALREADY 
3851 024204 110337 Oe4es0 MOVB  R3,8S +: SAVE FOR TYPING 
3852 04210 104401 Oex#es0 TYPE g 3300 TYPE THIS DIGIT 
3853 Oe4214 105337 Oe4e5e2 73: DECB  ©-« SOCNT ::COUNT BY 1 
3854 024220 003347 BGT 2g : BR IF MORE TO DO 
3855 Oe4%ee2 o0e4ce BLT 6$ :BR I 
3856 Oe42e4 005204 INC RY INSURE LAST DIGIT ISN’T A BLANK 
3857 Oe4e26 900744 BR :i1N DO THE LAST DIGIT 
3858 024230 012605 &$: MOV (SP)+,R5 ::RESTORE RS 
3859 Oe4e32 012604 MOV (SP)+'R4 tRESTORE RY 
3860 024234 012603 MOV (SP)+,R3 : ;REST 3 
3861 Oe%236 O16666 o0c002 ooD004 MOV 2(SP);.4(SP) ::SET THE STACK FOR RETURNING 
3862 Oe4e44 O12616 MOV (SP)+' (SP) 
3863 Oe4e46 oog002 RTI RETU 
3864 024250 90 Qs BYTE 0O + OE RAGE FOR ASCII DIGIT 
3865 Oe 25 00 : : 0 :: TERMINATOR FOR TYPE ROUTINE 
3866 e425 06 SOCNT: YTE 0 :OCTAL DIGIT COUN 
3867 Oe4253 05 SOFILL: .BYTE 0 :§ ZERO FILL CH 
2868 o2e4254 oD0000 SOMODE: .WORD O NUM R OF Biarrs TO TYPE 
3863 "SBTTL’ RANDOM NUMBER GENERATOR ROU 
3871 5 KELAAAAAAEA AAAS AA AAL AAA LAA RELA RASA RELA ALARA LA LAERLAAAELALELERAE 
3872 THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
3873 *WITH A RANGE OF O TO 2(+33)-1 
3874 : CALL: 
3975 : ISR PC, SRAND ;;CALL THE ROUTINE 
3876 i RETURN ;;RETURN HERE THE RANDOM 
3877 & ::NUMBER WILL BE IN 
3878 1 :: SHINUM, SLONUM 
3879 
3880 oe4es6 SRAND: 
3881 O2425— o1004E MOV RO,-(SP) :;PUSH RO ON STACK 
2882 Oc4c60 O1014E MOV R1’-(SP) ::PUSH R1 UN STACK 
3883 OE4262 O10e4E MOV Re. -(SP) »:PUSH RZ ON STACK 
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024400 


024402 
D24404 
024412 


024414 


be44e4 


el 


123456 


010046 
006300 
016000 


oc0e200 


OL1E46 
O1l6666 
oocode 


024070 
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024355 
177771 


024356 


024354 
001057 


047401 
024356 
024354 


ooood2 


Ce4414 


oocec4 000002 
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RANDOM NUMBER GENERATOR ROUTINE 


MOV $LONUM, RO ;;SET RO WITH LOW 
MOV $SHINUM, RI +:SET RI WITH HI 
MOV #-7,R2 ::SET SHIFT COUN 
1$: ASL RO ::SHIFT RO LEFT AND 
ROL R1 :ROTATE CARRY INTO R1 AND 
INC Re CHECK FOR DO 
BNE 1$ : CONTINUE SHIFT LOOP 
ADD $LONUM, RO ::ADD NUMBER TO MAKE X 129 
ADC RI ::PROPOGATE CARRY 
ADD $HINUM, R1 ADD NUMBER TO MAKE X 129 
ADD #1057,R0 ::ADD LOW CONSTANT 
ADC Rl ::PROPOGATE CARRY 
ADD #47401,R1 ::ADD HIGH CONSTANT 
MOV RO, SLONUM ::SAVE RO 
MOV R1. SHINUM -: SAVE RI 
MOV (SP)+, Re ::POP STACK INTO Re 
MOV (SP)+'RI ::POP STACK INTO RI 
MOV (SP)+;RO -:POP STACK INTO RO 
: RETURN 


RTS PC 
SHINUM: .WORD 176543 
$LONUM: .WORD 123456 
.SBTTL TRAP DECODER 


55 RIEHL EERE EELS 
*€THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP™ INSTRUCTION 
;*#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WIii 
;*GO TO THAT ROUTINE. 


STRAP: MOV RO, -(SP) : SAVE RO 
MOV 2(5P),RO ::GET TRAP ADDRESS 
TST =(RO) ::BACKUP BY 2 
MOVB (RO), RO ::GET RIGHT BYTE OF TRAP 
ASL RO ::POSITION FOR INDEXING 
MOW STRPAD(RO),RO :;INDEX TO TABLE 
RTS RO ::GO TO ROUTINE 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


$TRAP2: MOV (SP). -(SP) > ;MOVE THE PC DOWN 
MOV 4(SP},2(SP) ::MOVE THE PS DOWN 
::RESTORE THE PSW 


.SBTTL TRAP TABLE 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE “TRAP” INSTRUCTION. 


: ROUTINE 

$TRPAD: .WORD  $TRAP2 
$TYPE  ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
STYPOC {::CALL=TYPOC  TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS} 
$TYPOS ::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
STYPON ;;CALL=TYPON  TRAP+4(1044O4) TYPE OCTAL NUMBER (AS PER LAST CALL) 
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Saude 855078 


024434 023059 


0246 le 
24614 


000122 


000099 
008001 


MACY11 
15:27 


024576 
000340 


IS4446 
024602 
024510 


024576 


024602 
154400 


024436 
000340 


047520 


27( 1006) 


ooode4 
000526 


o0o924 


o0c024 


000024 
000026 


042527 
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TRAP TABLE 


$TYPDS 


aRRCHR ERCLRDCN 
.SBTTL BGHER poli AND” tpok 


;;CALL=TYPDS 


TRAP+5 ( 10440S ) 


haps? b440?) 
TRAP+10( 104410) 


TYPE DECIMAL NUMBER (WITH SIGN) 


TTY TYP iN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER FROM TTY 


AND UP ROUTINES 


s HAA AAL AERA ALAA AERA ARE RAK AAL ALA LARA LAL ALAA A LAEA LEAL LALA ALA L FLEE 


{POWER DOWN ROUTINE 


SPWRON: MOV #SILLUP, J#PWRYEC ; SET FOR FAST UP 
” MOV #340 QHPURVEC+E ; ;PRI 
MOV RO,-(SP) ‘BUSH: ko ON STACK 
MOV R1;-(SP) ::PUSH RI ON STACK 
MOY Ro’ -(SP) +: PUSH Re ON STACK 
MOV R3,-(S5P) PUSH R3 ON STACK 
MOV RY, ~ (SP) +B H RY oN STACK 
MOV RS’ -(5P) PUSH RS 
MOV Stn =(SP) :PUSH JSWR ON STACK 
MOV SSAVRE :: SAVE SP 
NOV. BSPRRUP JePWRVEC’:;SET UP VECTOR 
BR 2 :;HANG UP 


s REAL KA ELA AAA AAAS ALLA ERLE RA LE LE ARAL ERLE AE ELE RRL HLA RL EAAREREL EE 


‘BOWER UP ROUTINE 


$PURUP: MOV WSILLUP, D¥PURVEC ; 
MOV SSAVRE, SP 
CLR SSAV 
is: INC $SAVRE 
BNE 1$ 
MOV (SP)+, aSWR 
MOV (SP)+'R5 
MOV (5P)+'RY 
MOV (SP)+,R3 
MOV (SP)+, 
MOV (5P)+, Rd 
MOV ( 
MOV- SSPURON QNPURVEC’ 
MOV #340, J#PWRVEC+2 
TYPE 
SPWRMG: _loRC SPOWER 
SILLUP: HALT 
BR 2 
$SAVRE: 0 
SPOWER: .ASCIZ <15><12>"POWER™ 
EVEN 
BUFFER: 0 
END 


size’ FOR FAST DOWN 


i MALT. og FOR THE TTY 
i WAIT FOR THE INC 
ORD 
i HEOP STACK mre aSWR 
P STACK INTO RS 


OP STACK INTO RO 
"Tage UP THE POWER DOWN VECTOR 
: REP ERORT. THE POWER FAILURE 
POWER FAIL MESSAGE POINTER 


3 THE POWER UP SEQUENCE WAS STARTED 
3; BEFORE THE POWER DOWN WAS COMPLETE 
;;PUT THE SP HERE 


011040 
0 


O80 ON OE OE OE ON Oe Ob Oe Ot Oe OE Oe Oe Oe Oe Ok Oe te on 8 Ot oe te oe oe 
oO 
oO 
iO 


E 
BUFFER O24614 


001334 
0 


oO 


o 007572 
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24268 


19708 
e512 


2 
22908 


2006 


1455 


2516 


1338 
2173 


29988 
1555 


15:32 


2015 


3658 


2520 


1367 
2185 


29954 


2030 


14le 
2201 


2054 


1462% 
2349 


2070 


1463% 
2369 


208s 


1470 
2385 


147 1% 
2663 


1480 
39898 


1497 


1498 
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DZ2VTCD.P11 —§ 21-FEB-77 1 
DCATST OO44SE 
DCISP = i77570 
DELAY 011436 
DH. 020270 
DHS =s-020317 
DHY =: 020366 
DIGo «© 11726 
Dis! 011730 
Dice 011732 
DISeCH 006612 
TSPLa 001142 
DISPRE 000174 
DSPCH 011152 
OSWR = 177570 
DTPSR 011330 
OTPSRA 011356 
OTPSRB 011334 
O71 d20434 
O73 o444 
BT4 Oz0460 
E o7b42 
EMTVEC= 000030 
EMI o045 
EM  Oe011e2 
EMS © O20141 
EMY = 020165 
EMS 0230 
ENAKP_ 21243 
ENENin 81567 
ERRVEC= OO0004 
EXAKP 021250 
EXGRAF O2lebe 
EXPNTM 21274 
007712 
FILEFA 010330 
FILBFB 010314 
ILBUF 010310 
FILLWC 012556 
FINDOT O11052 
FINDTA 011062 
FIRLE; 011234 
FIRST O01e42 
FNDA © O11044 
GBBUF 011374 
GENER  O04Su2 
GENRX  OO4b26 
GETCHR 012620 
GIN O1446 
GINA © OO1454 
GNS = £4ke4" UJ 
PMD 01755 


GOAPMD 4 
GODSHS 017526 
GOHDSC 9 017500 


15:27 
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14768 
| 


924% 


935% 


3653% 


3617 
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167? 
e4 


00% 


3618% 
1843 
26298 


2392 


3940 


1167 
1644 


3620% 


2482 


3943 


a eG 


121 le 
180 16 


3623* 


2630 


2641% 


3944 3945 
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GONAPM 017561 1649 1851 
GOPRNT O1 1662 1684 
GRPHST 1598 16008 
HOMERS 016203 1602 30028 
Tovone™ 11042 S7s 19b3s 
Ioive = tls 7258 9il# 
KRBDON 010240 2097 2121 
KRBECH 010254 896 21588 
KReTSY 07400 ee hee 
RET bi 244 8Se8 $53% 
LASTCH 131 8718  1035% 
LASTLN OOle 8608 1024s 
LEMT 00277 11778 
LBMT1 0031 1195 12108 
LOM 003150 12158 
LF = steed 6318 3785 
LIC 10344 1154 1723 
LICA O01 2189# 2195 
LICR 010400 2192 2134s 
LODERL O040le 13678 
LODERS 0041 14108 
LOOP 011024 938%  2258# 
LRL 0034 12748 
LTAB 003702 290 1294 
MANFU 001400 758 8928 
MASKL Ol2326 2484%  P2488e 
MASKe 012330 2485* 2493% 
MKB Rates 2013 27658 
MKBA 14156 2480 27958 
MKBB 014245 2021 2060 
MKBBE 014362 2018 2057 
MKBC 014445 2026 2828s 
MKBO 014S04 2036 2834s 
MKBD2 014611 2033 2846s 
MKBE 014677 2041 28568 
MKBF 015017 2046 28708 
MKBG 015055 2052 28768 
MKBGA 015124 2068 2883% 
MKBH 015174 2083 28908 
MKBI 015235 2102 2128 
MKBJ 015270 2106 el3e 
MKBK 015323 e110 2136 
BL 015357 2114 2140 
MKBM 015412 2118 2144 
MKBN O1S446 2099 e3els 
MKBG 015541 2550 29328 
MKBQA 015606 eSy0* eS41# 
MKBGB 8015625 2eS2e8e 2529% 
MKBG1 015602 eSu4# 29398 
MKBG2 015621 2eS35* 29458 
MKBR 015634 e1S2 29508 
MKB1 014223 2063 2079 
MKBS2 = 015475 2123 29254 
MKE 015702 1925 29588 
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31528 
1703 


eS4ex 
2530% 


27908 


1711 


21858 


2287% 
1302 

2SSbs 
2516% 


2091 
2088 


2s4ls 
2347 % 


1731 


2265 


1878 
1164 


3596 
1306 


eS20% 


2805s 
28198 
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1739 1764 1786 


2283% 22948 


1880 
1705 1733 1808 


1310 1314 1337% 


2537 25578 


1827 


2191 


31348 


MAINDEC-11-D2vTC 

O2VTCD.P11 a 
MKEA 016107 
MKEAL 016120 
MKEB 016165 
MKEH 016134 
MOVON1 003104 
MOVOWN 003100 
MOVRIG 003122 
MPTCNT 013726 
MPTSCN 013775 
MOO 0 -«O1 7256 
MQ 017343 
Mg2 017431 
MSCOPE 023210 
MSGTND 005072 
MSGTXT 004752 
GTYP 002432 
MTEXTO 21532 
MTEXTI 021636 
MTEXT2 021737 
MTEXTS Oee041 
NTEXTY Oee1e4 
MTEXTS Oeceeb 
MTEXT6 Oee3°7 
MTEXT? O2e361 
MTEXTS Oee46! 
MTOB 012676 
Noi, 13013 
M910 ©=—-013304 
MS1i 013335 
M9i2 013370 
M914 013424 
M92 13061 
M920 «013471 
M921 013521 
M922 13555 
M9221 013612 
M923 013667 
m823A 014032 
M93 s«O13110 
may = 13152 
M96 = 013203 
M87 «013236 
M981 7610 
NOWEOP 007044 
OCTAL 011636 
OVRAL 004750 
PASHED 20000 
ATH Gl62i1 
IRQ = 177772 
PIRGVE= 000240 
TWID OO131E 
PRNTST 006336 


Fee-77 1S: 


ECYL1 27( 1006) 
195 29848 
195e# 1953 
1939"  1940# 
2160 29918 
1181 11988 
1188 11978 
1182 = 1184 
1798 27688 
1821 27758 
2259 les 
2277 = B30! 
2298 «= 31318 

939 35948 
i483 15448 
1481 15308 
1017 10758 
17791855 
1856 33838 
1857-33948 
1858 34068 
1859-34168 
1860 34278 
1861 34388 
1962-34438 
1863 34S4s 
e445 = Bebe 
1093 1657 
1353927178 
1403 27228 
1436 = B7E78 

979 27328 
1104 1671 
1747-27398 
1773 e744 
1562-87498 
1604 27548 
1635 27628 
1837 27808 
1125 1692 
11438 1719 
1173-27058 
1272 = 27108 
1461 1469 
1916 19219 
1938 = 24538 
1478# © 1522% 
1887 31818 
1433-3004" 

6378 

7318 

8748 1804 
1625 17888 

B65" 890s 

654 

Esse 

65bu 
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1958# 
1941# 


1201 
1185 


31218 


33718 


26838 


26908 


1959# 
29888 


1189 


2539 


1630 


1961# 


1191 


1632# 
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1962 


1192 


1921 


29868 


12048 


1923# 
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OZvT CB Pil Bi-Pee- 77 ie:27 CROSS REFERENCE TABLE -- USER SYMBOLS 
PR3 = 000140 6578 
PRY = 0002 658s 
PRS = 0004 6598 
PRE == 0003 6608 
PR? = 000340 6618 
PS = 177776 6348 8 635 
PTCT ; 01260 Beus 1632 
C= 900024 726% 917% gis 3950 3951% 3960% 3966% 3978%  3979% 
RBEGIN 001404 754 8938 
ROCHR = 104406 3515 39438 
ROLIN = 104407 3560 3M 
= 104410 948 33458 
RESVEC= 000010 7218 
REV 021236 1611 33218 
RFI 017251 981 31108 
0530 3e45 32538 
ROWiC § O2l1i44 3245 33094 
ROWS 1052 3245 b 
ROW1O 021360 ell6é 33528 
ROWLOA 021510 ele 33688 
ROWle 020700 3248 = 32748 
1200 3e48 33148 
ROWLeS 021106 3248 33018 
OS64 3e4S 32588 
ROW22 0736 3248 32798 
ROWS 0622 3245 32638 
Wd 020774 3248 32848 
ROWY e06S2 3245 32678 
ROW2 Oe2l026 3248 32698 
ld 020676 2044 32718 
ROWE 021302 2100 33434 
RO 1366 eleb 33534 
Oel32e e104 33468 
ROW7A 406 2130 3356% 
334 2105 33488 
ROWBA 021434 2134 33608 
Wd 021346 elle 33508 
021462 2138 33648 
RSTRT 9638 1884 
El O013ee 8768 1337% 1342 
SAVE2 001324 8778 8=€=©6988* =6993% 1000 236 
SAVES 001326 8788 991# 994* 1006 3236 
SAVEY 001330 879% 886% 901% 940 98S* 992% 998 3236 
SBEGIN 002000 941 94S 961% 
et a ae ec me a 
= u 
STCHAR 001306 8708 1lleb* 1129 1138* 1139 1150% 1153 1163# 1164 1693# 1695 1704% 1705 
i7e0* 1722 1732* 1733 1801* 1802 1807* 1808 
Ga eB age 
3 ‘ 
SUR 001140 786% 307 925% 927 933% S44 1626 1623 e247 2412 2496 2489 2491 
eSie 3534 361 3626 3628 3658 363 3958 397 1% 
SWREG 000176 7518 933 
SWO 000001 £898 


cw0 = COOO0! 6798 = 689 


MAINDEC-11-DZVTC 
poe ett 21 
SWO1 = 000002 
SWO2 = 000004 
SWO3 = 000010 
SWwOY = 000020 
SWOS = 00004 
= 
a 
SwOoS = 001000 
SW1 = 000002 
aa 
= 

ip = 0100 
SW13 = 020000 
SW14 = 040000 
SW1S = 100000 
SWe = 04 
SW3 = 000010 
SW4 = 000020 
ae = 000040 
We = 000100 
SW7 = 000200 
Swat ete 
cwS = 001000 
— aT 
tempo | BoLaiS 
ryreo ha 
Tine bi5e74 
TITL 012712 
TKVEC = 000060 
TOTALC O01264 

VEC = 000064 

APVE= 000034 
TRIVEC= 000014 
TSTNUM O01252 
TSTROW 01173 
TST1 oo204e2 
TST10 002772 
TST1ll 004150 
TSTl2  O04276 
TST13 004334 
TST14 005074 
TSTIS GOSe44 
TSTiE  OOS3S6 
TST17 005526 
TSTe O0e4be2 
TSTe0 §6©gossée 
TSTel traded 
TSTee 6004 
TST23 006140 
TSTe4  O06e6e 
TST2eS 006340 
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72% + 1752 17S3% 1756% 
sozee 1680s rage EPS 238% cuss «= tegue 
1847% 
2061 2077 2092 2103 2107 2ill 2115 
24798 
1924 2322 


16984 


m 
o-- 
- 
ry a] 


rd 
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St26  opeuse 18178 2343 
re137 S06 ig34e 3344 
er 203 lid2e 4 
18130 193 19328 | 5345 
1273] 007376 agoes Be 
TST32  0103se 51578 
Testy © gozeee 11238 2325 
STS O0Be 11978 3336 
TSte 005760 izle 3307 
eT? po suee 1263 «12708 2328 
er = ipo ‘a ' = wr iw im) ie 
= =) 
sel 3eer | ese etna Arte) A709 
TYPEPT 02400 i008 ~=« 009 10598 
TYPOC = 104402 3689 3713 (39378 
TYPON = 104404 39398 
TYPOS = 194403 50388 
VHD 1266 Secu 1023 1028 1031 1128 41137 41152 
1300, «172 758 (iB4] «DESI 
vl «00270 8638 1o31* jo32x 1033 1108 1179 1197 
vs «ODL B72 Beds 1033" 10348 
vie 001300 8678 2230 «HG 
v1 001276 Beoe 5218 2221 254 44 
VINBW  DOIDYE Se38 «ele «= S64—is«‘*TSS).«C‘éCBGO «OCS S«3236 
vTOB 5 Bede 2igde «22 14% 
YTOS 001302 segs 2165 2202 2204 
YTSXX 991260 8598 idle 026 1636 1223 1236 1262 
173430 aoe «= 2030s«Bos4 «= BoPaSs«E 
VTSOA 016460 0 fore 30388 
vTE0B 016532 1076 30438 
YTEOH 16663 i078 «30618 
016741 1079-30708 
yTeaL 017024 1080 30808 
yTeaM 017105 1081 
VTSE 016601 1077 30S 18 
VISSE 017186 1982 31008 
VSORW 20474 5010 32458 
YVeORW 20512 5008 «34a 
WFTEST 001232 8a08 “Be7x gSes $95 1458 1557 1889 
WHATO 017656 847, 31678 
WHATL 017721 955 31738 
WHERE 002040 ass “agus 996% 89Ge 900 972 9738 
WIDTH 001320 8758 1155 1319 1324 1410 1724 e172 
XADDS 04744 ‘Siie 1s18 18278 
OFF .= OO00 BSoe 2236 
-XOFFBR 011056 1505" 1577% 2242 22608 2284" 22808 
XOFFOK 611030 1564 jo42e [e47x 660% [eG2x 1701s 1709% 
1Bu4s 1849" 2539 22618 2205% 22698 26328 
XOFFRC 011024 iSSis 1569 236% 32918 
KONG BLIDSE ever | TEBE peau 229 
46) + 3 , 3 8 
yPRNt BLOM tiie’ «4783 FFEF* S875" ace egg sage 
1331 i394 1428 1621 609 1643 1679 
1761 1806 1895 22018 2447 26339 
KPRNTA O1041e 22058 2208 2216 2218 5235 2243 ere 
YPRNTS Cl1O434 2203 22078 


2402 


1883% 
2355 


19244 
2372 


1737# 


1300 
1725 


1465 


=}: 
$89 


1639 


1752 


1S97 


1905# 


3591 


1894 
2356 


1$23 


182Ss 
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yYAoDS 004742 1496# 
$AUT 001134 7838 
$80 001122 7788 
S8DDAT 001126 7808 
SCHARC 024024 3757% 

CKSWR= #22048 1 3943 
CMTAG 1100 7668 
CM1 = 000002 7988 
$CMe = 000004 7388 
CM3 = 02 7968 
SCNTLG 023021 35368 
BENT U Bs30N4 35358 
CRL 1167 801% 
$OBLK 012546 2583 
$D Reese 1899 
S$OTBL 012536 2586 
SEND 007610 19108 
SENDCT 006756 319 
SENDMG 007027 1903 
SENULL 007024 1906 
EOP 6640 17% 
SEOPCT 006750 9! 9% 
SERFLG 001103 7098 
ERMAX O01115 7758 
SERROR 023342 913 
SERRPC OO11I1E 776% 
SERRTS 001172 818% 
SERRTY O234S 3660 
SERTTL OOl11e 773% 
SFILLC O0115 7948 
SFILLS 001155 7938 
$GDADR O0112 777% 
$GODAT 001124 779% 
$GET4¥2 097000 19078 
SGTSWR= #*444% LU 942 
$HD = OO00000 622 
SHINUM 024354 1477 
$SHIOCT 02320 3582 
SICNT 001104 7708 
ILLUP 024S76 3950 
SINTAG 001135 7848 
SITEMB 001114 774% 
SLF 001170 8028 
LONUM 024356 1476 
S_LPADR 1106 771 
S$LPERR 001110 7728 
SMAIL = ##exee 937 
SMNEW 023037 35398 
a ic ne 
8 
Hn ae 000001 97448 
161948 
OCNT Oe4e52 38248 
SOMODE O242S4 2819# 
SOVER 023326 3597 
$PASS 001100 767% 
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15268 


22318 
3774 


1e95+# 


2232 
3783 


913 


3651 


2236 
37888 


919 


3672 


2250 


368! 


3672 


3656% 


2253 


3791 
3897% 
3636 


11688 
17428 


38688 
1917 


e253 


3700 


3657 


e538% 


39048 


25eb# 


3705 


3672 


3238 


13548 
17908 


323 


3709 


3687 


13988 
4% 


18 


} 


- 


° 


J 


143i8 
18318 


14458 
19298 


1S46e 
20028 


- 
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SPOWER O24604 33981 39868 


SPWRON O24436 917 39508 3978 
SPURMG 024572 39818 
SPWRUP 024510 3960 39668 
sexes ROLL ee 8008 3519 3535 3591 3594 3&72 3791 
RA 4256 1489 1504 38808 
SROCHR 022556 34838 3943 
SRODEC= #4#ee% 3946 
IN 022676 35i1# 3944 
$RDOCT 023050 35558 3945 
$RDSZ = 000010 35048 
SREGF 9 1160 736% 
EGO 001162 7988 
SREG] 001164 7398 
$RTNAD 007022 19168 
A = £¥eeEE YU 2946 
SSAVRE= £44e4% U 3946 
$SAVRE 024602 3959% 3967 3968 3969* 3985% 
$SCOPE 023224 911 3595 36118 
$SETUP= 000037 8208 910 911 313 915 917 919 920 12894 3472 3541 3612 
3666 3667 
SSTUP = 177777 8208 
$SVLAD 92331lée 3621 3627 36308 “ 
$SWR = 1680400 $le8 622 737 738 739 740 741 742 800 920 921 973 
1103 1124 1148 1172 1271 1358 1402 1435 445 1550 1597 1623 
1670 1691 1718 1746 1771 1794 1818 1835 1873 89s 9093 1515 
1933 2006 2158 3605 606 3607 3612 362 3626 3627 3630 632 
3643 3644 364 646 654 3658 3663 3666 3672 3982 
SSWRMK= 000000 742 43 360 608 628 
ie Bus ie re ae ee 
T % 
$7 = 900033 bles 622 974 97388 1046 1087 10918 1099 11038 1120 0 8©6(lle48) 61144 
11728 1263 1267 12718 1333 5 13588 1398 140e# 8§=61431 14358 
14498 1546 15508 1558 1560 1 15978 1619 16238 1652 16568 1668 
1687 16918 1714 17188 1742 1746% 1767 l77l#e 1790 17348 =§=618i4 18188 
18358 1929 19338 2002 e00bse 2154 21588 
001152 7918 3780% 3791 
STPFLG 001157 795% 3738 3731 
01150 7308 #83778 3791 
STRAP O24360 915 39138 
STRAP2 Oe440e 39248 3935 = 
= 000011 339e¢8% 39378 39388 39398 39408 39418 3943 39448 394Se 39468 
STRPAD 024414 3918 393548 
STSTNM 001102 768% 1894% e23i1% 3604 3628 3630% 3633 3636 3650 3653 3672 
STTYIN 023004 3512 3513 3530 35348 
STYPBN= £44444 LU 3941 
STYPDS 012332 25718 3940 
$TYPE 023610 37388 3928 3936 
$TYPEC 023760 3759 3766 3773 3778% 3779 
STYPEX Oce4026 3784 3786 378948 
$TYPOC 924054 38228 3937 
STYPON 024070 3821 38248 3939 
$TYPOS 024030 38178 
SxTST 23234 36158 
$$GET4= 000000 19098 


SOFTLL ODe4eS3 28184  3822% 3832 38678 


10? 
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—"s soils A, Nhe mse OD 908 «= «es«éi18117 
4 8 74398 

- ci* cq" 3f8e* 898908, tet 488 


4384 


26258 


33428 


3475 


MRINDEC 
OZYTCO. 


PUSH 
REPORT 
SCOPE 


SETPRI 
SETTRA 
UP 


TRMTRP 


" SRAND 


6128 


COMO OMmWmman-) 
o— 0 + = bh 
reroruorurufurur 
St St St St St St ot at 


-D 
-F 


EB-77 15:2 
1877 

883 10i1 
97 1087 
16&6 1687 
2ble 3583 
e571 3557 
977 1099 
1669 1690 
3937 3938 
903 

984 387 
2097 2251 
761 803 
1269 1354 
1652 1654 
1816 1831 
3601 3639 
921% 

1904 

3687 3711 
798 799 
974 1087 
666 1687 
937 3938 
1046 1263 
622 

820 

733 

743 

759 

1867 

3637 

3673 

SSYE 

3869 
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1572 


JO 


2267 


¢ PAGE 88 
ABLE -- MACRO NAMES 


essl 


1354 
1831 


2654 


1398 
1929 


KO? 
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OZVTCO.P11 21-FEB-77 15:27 CROSS REFERENCE TABLE -- MACRO NAMES 
- SROOC bles 3541 
. SREAD bles 3467 
. SSAVE bles 

$SCOP bles 3599 

$SPAC ble8 

SWDC bles 

STRAP bles 3905 

STYPD bles e559 

STYPE bles 3721 

TYP bles 3792 


. ABS. O24616 o0c 


ERRORS DETECTED: O 
DEFAULT GLOBALS GENERATED: 0 


OZVTCD. SEQ/CRF/SOL/NL: TOC=DSKZ:DZVTCD.P11 
RUN-TIME: 15 10 3 SECONDS 

RUN-TIME RATIO: 282/727=10.2 

CORE USED: 25K (49 PAGES) 


